Flytte filer fra mappe til en anden mappe - version udvidet

Const mappe1Navn = "Flytte1"
Const mappe2Navn = "Flytte2"
Dim sti As String
Dim mitRegneArk As Object    '<--------

Public Sub HentFraMappe()
    Set mitRegneArk = ActiveWorkbook
   
    sti = ActiveWorkbook.Path & "\"
    hentOgFlytFiler mappe1Navn, mappe2Navn
End Sub
Private Sub hentOgFlytFiler(mappe1, mappe2)
Dim fs, f, f1 As Object, fc, fNavn As String
Dim fx As Workbook

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(sti & mappe1)
    Set fc = f.Files
   
    For Each f1 In fc
Rem Åbner filen
        Workbooks.Open f1
       
Rem ... overførsel af data til MitRegneark fra fil
        ActiveWorkbook.Sheets(1).Range("A1:B3").Copy
       
        With mitRegneArk.Sheets(1)
            .Paste
        End With
        Set fx = ActiveWorkbook
Rem ...
Rem ...
Rem Luk file
        fx.Application.CutCopyMode = False
        fx.Close
       
Rem Flyt til mappe2
        f1.Move (sti & mappe2 & "\" & f1.Name)
    Next
End Sub

Bruger ovenstående til dels at flytte filer fra "Flytte1" mappe til "Flytte2" mappe. Samtidig aflæses data fra filer over i "Mit regneark".
Jeg vil gerne udvide det lidt med, at der fra hver fil aflæses fra i alt 9 ark, hvor data altid er placeret samme sted på alle arkene(J1-AD1).
Til gengæld skal data indsættes i mit regneark på 9 forskellige ark, men ikke som vist i koden men: Range A50000. End(xlUp).Offset(1, 0), altså i bunden af i forvejen indskrevne data på hvert ark.