Add multiple sheets before multiple specific sheets

[muhleebbin]

So I found this code to add multiple sheets however would like to modify it to add a second range (B1:B30) where it would now add the sheets before each specific sheet in the new second range. Can this be done?

Sub AddSheets()
    Dim xRg As Excel.Range
    Dim wSh As Excel.Worksheet
    Dim wBk As Excel.Workbook
    Set wSh = ActiveSheet
    Set wBk = ActiveWorkbook
    Application.ScreenUpdating = False
    For Each xRg In wSh.Range("A1:A30")
        With wBk
            .Sheets.Add after:=.Sheets(.Sheets.Count)
            On Error Resume Next
            ActiveSheet.Name = xRg.Value
            If Err.Number = 1004 Then
              Debug.Print xRg.Value & " already used as a sheet name"
            End If
            On Error GoTo 0
        End With
    Next xRg
    Application.ScreenUpdating = True
    
    Sheets("Sheet Add").Activate
End Sub

 

[jolivanes]

So if you have Sheet_A, Sheet_B, Sheet_C, Sheet_D etc in Column B, you want to add a sheet and name it Sheet_A and place it where?
Sheet_B needs to be placed before Sheet_A? Sheet_C needs to be before Sheet_B? etc etc
What do you want to happen if a sheet with one of these names exist already?

 

[muhleebbin]

So right now I have sheets 2022 Location A Actual, 2021 Location A Actual, 2020 Location A Actual, 2022 Location A Budget, 2021 Location A Budget, 2020 Location A Budget, 2022 Location A PO, 2021 Location A PO, 2020 Location A PO in order. This is also repeated for Locations B -J and as you can imagine, there are a ton of sheets already in the workbook. The purpose of this code is to add 2023 sheets but to keep them grouped together with their respective Locations and Actual/Budget/PO. Ideally the code would take the names in range A1:A30 (ie 2023 Location A Actual, 2023 Location A Budget, 2023 Location A PO) and place them before their respective 2022 sheets (ie 2022 Location A Actual, 2022 Location A Budget, 2022 Location A PO) which are listed in range B1:B30.

Hope this makes sense