Copy Paste Macro

HI AB33 i did change to active workbook but now am getting some of my code below highlighted in yellow (example: Sheets("Top 20 FM").Select)

Sub Macro1()

Dim strFileFrom As String
Dim strFileTo As String
 
strFileFrom = ActiveWorkbook.Name
strFileTo = "Template.xlsx"

    Windows(strFileFrom).Activate
    Sheets("Top 20 Line Entries").Select
    Range("B3:B22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(strFileTo).Activate
    Sheets("Top 20 Line Entries").Select
    Range("B14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows(strFileFrom).Activate
    Range("D3:D22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(strFileTo).Activate
    Range("D14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("E14").Select
    Windows(strFileFrom).Activate
    Range("F3:F22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(strFileTo).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    Windows(strFileFrom).Activate
   Sheets("Top 20 FM").Select
    Range("B3:B22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(strFileTo).Activate
    Sheets("Major Fund Managers").Select
    Range("B14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows(strFileFrom).Activate
    Range("D3:D22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(strFileTo).Activate
    Range("D14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows(strFileFrom).Activate
    Range("F3:F22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(strFileTo).Activate
    Range("E14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B40").Select
    Windows(strFileFrom).Activate
    Sheets("FM Major Inc&Dec").Select
    Range("B2:B6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(strFileTo).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D40").Select
    Windows(strFileFrom).Activate
    Range("D2:E6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(strFileTo).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B52").Select
    Windows(strFileFrom).Activate
    Range("I2:I6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(strFileTo).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D52").Select
    Windows(strFileFrom).Activate
    Range("K2:L6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(strFileTo).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    Windows(strFileFrom).Activate
    Sheets("Top 20 Ben").Select
    Range("B3:B22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(strFileTo).Activate
    Sheets("Major Beneficial Holders").Select
    Range("B14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows(strFileFrom).Activate
    Range("D3:D22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(strFileTo).Activate
    Range("D14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("E14").Select
    Windows(strFileFrom).Activate
    Range("F3:F22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(strFileTo).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows(strFileFrom).Activate
    Sheets("Ben Major Inc&Dec").Select
    Range("B2:B6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(strFileTo).Activate
    Range("B40").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows(strFileFrom).Activate
    Range("D2:E6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(strFileTo).Activate
    Range("D40").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B51").Select
    Windows(strFileFrom).Activate
    Range("I2:I6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(strFileTo).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D51").Select
    Windows(strFileFrom).Activate
    Range("K2:L6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(strFileTo).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
End Sub