Kopiering af faneblad i VBA

Jeg har en procedure der kører fint med ét enkelt faneblad som ser således ud:

Sub InsertSheet()

Dim NewSheet As Integer
Dim Pricelist As Integer
Dim SheetName As String
Dim orgSheet As String

orgSheet = ThisWorkbook.Name

DeleteAll ' kalder et modul der ryder op

NewSheet = 2

    Do While Sheets("Settings").Cells(NewSheet, 1) <> ""
    Pricelist = Sheets.Count
    Sheets("Pricelist").Copy After:=Sheets(Pricelist)
   
    SheetName = Sheets("Settings").Cells(NewSheet, 1).Value
    Sheets(Pricelist + 1).Name = SheetName
   
    Sheets(Pricelist + 1).Range("A1") = "=Settings!B" & NewSheet  'NyFormel
    NewSheet = NewSheet + 1
   
    ProcessSheet ' opretter folder, gemmer dokument og lukker

    Loop
End Sub

lukker