Issue with Macro Copying data from one worksheet to another

Hi I am trying to copy selected data bits from one workbook to another while compiling the data in rows. My goal is to be able to copy over data quickly if I change some of the inputs.

here is my code so far

Sub findata()
'
' findata Macro
'
' Keyboard Shortcut: Ctrl+u
'
    ActiveCell.Offset(-13, -9).Range("a1").Select
    Windows("model.xlsm").Activate
    Sheets("Financial Highlights").Select
    ActiveWindow.SmallScroll Down:=9
    ActiveCell.Offset(11, 0).Range("A1").Select
    Selection.Copy
    Windows("price analysis.xlsx").Activate
    ActiveCell.Offset(0, 3).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("model.xlsm").Activate
    ActiveCell.Offset(2, 0).Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(2, -1).Range("A1:K5").Select
    Windows("price analysis.xlsx").Activate
    ActiveCell.Offset(0, -3).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("model.xlsm").Activate
    ActiveCell.Offset(4, 1).Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("price analysis.xlsx").Activate
    ActiveCell.Offset(0, 1).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("model.xlsm").Activate
    ActiveCell.Offset(13, 0).Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("price analysis.xlsx").Activate
    ActiveCell.Offset(0, 1).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(0, 2).Range("A1").Select
    Windows("Model.xlsm").Activate
    ActiveCell.Offset(4, -1).Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("price analysis.xlsx").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(0, 1).Range("A1").Select
    Windows("Model.xlsm").Activate
    ActiveCell.Offset(-1, 0).Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("price analysis.xlsx").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(0, 1).Range("A1").Select
    Windows("Model.xlsm").Activate
    Sheets("Cash Flow Statement").Select
    ActiveCell.Offset(-18, -7).Range("A1:J1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("price analysis.xlsx").Activate
    ActiveCell.Range("A1:J1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(1, -6).Range("A1").Select
End Sub