kopier ark gennem VBA

Jeg har en løkke som kører en process igennem som tager ét faneblad (Pricelist) og kopierer det og navngiver det udfra en liste med navne i et ark (Settings). Denne løkke skal modificeres således at den ikke kun tager det ene faneblad, men tager 2 faneblade istedetfor.


Sub InsertSheet()

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

orgSheet = ThisWorkbook.Name

DeleteAll

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  'Kopiering af uplift til A1
    Sheets(Pricelist + 1).Range("B1") = "=Settings!C" & NewSheet  'Kopiering af uplift til B1
   
    NewSheet = NewSheet + 1
   
    ProcessSheet

    Loop
End Sub

Det nye sheet der skal kopieres kan vi bare kalde Pricelist2.

Er der nogle der kan trylle ?