Copy data between workbooks

Hello everyone. I need your help. I tried to do it myself, but I could not

I have a macro command that copies the information from worksheets in new sheet "Consolidated" but everything works in one workbook.
i need two different workbooks
1) Source data.xml
2) Reports.xmlx

macro i will run from Workbook - "reports.xmlx" and macro will copy information from workbook "source data.xml"

Sub Copy_sheats_v2()

Dim wsTest As Worksheet

Const strSheetName As String = "Consolidated"
 
Set wsTest = Nothing
On Error Resume Next
Set wsTest = ActiveWorkbook.Worksheets(strSheetName)
On Error GoTo 0
 
If wsTest Is Nothing Then
    Worksheets.Add.Name = strSheetName
End If

With Sheets("Consolidated")
    .UsedRange.ClearContents
    .Range("A1:AG1").Value = Array("SKYRIUS", "UÞSAKOVAS", "PREKIØ GAVËJAS", _
    "KB - UÞSAKYMAS", "PARDAVIMO UÞSAKYMAS", "GAMINIO KODAS SAP", "GAMINIO PAVADINIMAS", _
    "PASTABOS", "TVIRTINIMO SAV", "UÞSAKYTAS KIEKIS", "ATKROVIMAS", "APMUÐIMAS", _
    "KAINA, LT", "BENDRA SUMA, LT", "APKROVIMAS", "BENDRAS APKROVIMAS", "ÁSIPAREIGOJIMO DATA", _
    "ÁVEDIMO DATA", "TIEKIMO GALUTINË DATA", "NADIA IVINSKIENË", "VIKTORAS UOGINTAS", _
    "MINDAUGAS KERÐYS", "PARUOÐTA APMUÐIMUI", "SUKIRPIMAS", "SIUVYKLA", "LAKÐTINËS", _
    "KARKASAI", "POROLONAS", "TÛRIS, M3", "BENDRAS TÛRIS, M3", "ÐALIS", "GRUPË", "APMUÐIMO SAV")
    For Each Sh In Sheets
        With Sh
            If .Name = "SKUBUS" Or .Name = "BXS" Or .Name = "ACTONA" Or .Name = "LOVOS" _
            Or .Name = "MOEMAX" Or .Name = "KONVEJERIAI" Then
                Rng = .Cells.Find("*", , , , xlByRows, xlPrevious).Row - 1
                NR = Sheets("Consolidated").Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1
                If Rng > 0 Then
                    Sheets("Consolidated").Cells(NR, 1).Resize(Rng) = .Name
                    Sheets("Consolidated").Cells(NR, 2).Resize(Rng, 32) = .Range("A4").Resize(Rng, 32).Value
                End If
            End If
        End With
    Next
    .Columns("A:AG").EntireColumn.AutoFit
End With
End Sub

this is macro vat i use for copy from different worksheets but its works only in sesame workbook

I tried to use the information found on the internet but I could not adjust

maybe you can help