Macro to activate 2 workbooks

I recorded this macro in Excel 2016 with the macro recorder and want to insert vba . Of course the two files were opened already when the macro was recorded. I am poor in VBA and after looking at many examples of how to do this online cannot get it to work. Here is the Macro recorder's version.

Sub openwkbks()
    
    Windows("Aqu010216.xlsm").Activate
    Sheets("Brfig").Select
    Range("B7:B15").Select
    Selection.Copy
    Windows("Matrix.xlsm").Activate
    Range("C5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
        Selection.Columns.AutoFit
    Windows("Aqu010216.xlsm").Activate
    Range("D7:D15").Select
    Selection.Copy
    Windows("Matrix.xlsm").Activate
    Range("C6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
        Windows("Aqu010216.xlsm").Activate
    Range("F7:F15").Select
    Selection.Copy
    Windows("Matrix.xlsm").Activate
    Range("C7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    Windows("Aqu010216.xlsm").Activate
    Range("H7:H15").Select
    Selection.Copy
     Windows("Matrix.xlsm").Activate
    Range("C8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    Windows("Aqu010216.xlsm").Activate
    Range("J7:J15").Select
    Selection.Copy
    Windows("Matrix.xlsm").Activate
    Range("C9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
     Windows("Aqu010216.xlsm").Activate
     Sheets("Points").Select
     Range("E7:E15").Select
     Selection.Copy
     Windows("Matrix.xlsm").Activate
    Range("C10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    Windows("Aqu010216.xlsm").Activate
    Range("g7:g15").Select
     Selection.Copy
     Windows("Matrix.xlsm").Activate
    Range("C11").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    Windows("Aqu010216.xlsm").Activate
    Range("i7:i15").Select
     Selection.Copy
     Windows("Matrix.xlsm").Activate
    Range("C12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    Windows("Aqu010216.xlsm").Activate
    Range("n7:n15").Select
     Selection.Copy
     Windows("Matrix.xlsm").Activate
    Range("C13").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    Windows("Aqu010216.xlsm").Activate
    Range("p7:p15").Select
     Selection.Copy
     Windows("Matrix.xlsm").Activate
    Range("C14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
             
    End Sub

The"Matrix" workbook has this code and where the data needs to be transferred to. The "Aqu010216.xlsm" is but one workbook of many with different names that will need to be opened (not simultaneously) to feed the Matrix workbook

Yes it has to do with horse racing but it's still a spreadsheet like any other type.

Thanks xladept. I get a "runtime error "438" Object doesn't support this property or method". Using debug it comes up after the line

Set wm = M.wm.Sheets(ActiveSheet.Name) is executed.

I've inserted the code in the module where the original macro recorder code was and also tried inserting in the "Matrix" sheets and get the same error message in all cases.

Thank You JFGF. That worked when I made "Matrix" the active sheet.