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