Copy range from another workbook with wildcards

here you go,

Sub CopierTest()
Dim wb As Workbook, x As String
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each wb In Workbooks 'loop through all open workooks
 x = wb.Name
 If wb.Name <> ThisWorkbook.Name And wb.Name Like "*Changes*" Then ' find the workbook that contains Changes in its name
 Workbooks(x).Activate 'activate the workbook
 
    For Each ws In wb.Worksheets 'loop through all the worksheets in that workbook
    
        If ws.Name Like "*Changes*" Then 'check if worksheet name contains Changes
        'do your copy and paste here
         ws.Activate
         ActiveSheet.Columns("A:H").Select
         Selection.Copy
         ThisWorkbook.Worksheets("PasteHere").Activate
         ActiveSheet.Range("A1").Select
         ActiveSheet.Paste
         ActiveSheet.Range("A1").Select
         Workbooks(x).Close savechanges:=False
         Application.DisplayAlerts = True
         End If
    Next
End If
Next wb

End Sub