Re-coding Macro to remove Activate & Select functions

I have the following peice of code and wondered what i need to do to re-code the activate/select functions within the macro?

       "\\Via.novonet\dfs\LIFE\F\Production\CONFIDENTIAL\CONTROLLED ACCESS\FICO_compliance\PHT\Deficiency\A6160 - ALAP (2011 on)\Claim 11_12"
    Workbooks.Open Filename:= _
        "\\Via.novonet\dfs\LIFE\F\Production\CONFIDENTIAL\CONTROLLED ACCESS\FICO_compliance\PHT\Deficiency\A6160 - ALAP (2011 on)\Claim 11_12\A6160 Int 11-12.xls" _
        , Notify:=False
    Windows("ALAP Annual Claim 11-12.xls").Activate
    Sheets("Claims Summary").Select
    Windows("A6160 Int 11-12.xls").Activate
    Sheets("AV-Admin Re").Select
    Range("B9:B20").Select
    Selection.Copy
    Windows("ALAP Annual Claim 11-12.xls").Activate
    Range("B8").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Windows("A6160 Int 11-12.xls").Activate
    Sheets("AV-SIPP").Select
    Range("B9:B20").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("ALAP Annual Claim 11-12.xls").Activate
    Range("C8").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Windows("A6160 Int 11-12.xls").Activate
    Sheets("AV - YL70 ETC").Select
    ActiveWindow.SmallScroll Down:=-24
    Range("B9:B20").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("ALAP Annual Claim 11-12.xls").Activate
    Range("D8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("A6160 Int 11-12.xls").Activate
    Sheets("AV - Ex Natwest Life").Select
    Range("B9:B20").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("ALAP Annual Claim 11-12.xls").Activate
    Range("E8").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Windows("A6160 Int 11-12.xls").Activate
    Sheets("AV - Ex RSA Life").Select
    ActiveWindow.SmallScroll Down:=-24
    Range("B10:B21").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("ALAP Annual Claim 11-12.xls").Activate
    Range("F8").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Windows("A6160 Int 11-12.xls").Activate
    Sheets("AV - UNISURE Co Ref 1").Select
    ActiveWindow.SmallScroll Down:=-42
    Windows("ALAP Annual Claim 11-12.xls").Activate
    Windows("A6160 Int 11-12.xls").Activate
    Range("B8:B19").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("ALAP Annual Claim 11-12.xls").Activate
    Range("G8").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Windows("A6160 Int 11-12.xls").Activate
    Range("C8:C19").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("ALAP Annual Claim 11-12.xls").Activate
    Range("H8").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Windows("A6160 Int 11-12.xls").Activate
    Sheets("AV - UNISURE Co Ref 2").Select
    ActiveWindow.SmallScroll Down:=-42
    Range("B10:B21").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("ALAP Annual Claim 11-12.xls").Activate
    Range("I8").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Windows("A6160 Int 11-12.xls").Activate
    Sheets("AV - UNISURE Co Ref 3").Select
    ActiveWindow.SmallScroll Down:=-33
    Range("B9:B20").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("ALAP Annual Claim 11-12.xls").Activate
    Range("J8").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Windows("A6160 Int 11-12.xls").Activate
    Sheets("AV - UNISURE Co Ref 4").Select
    ActiveWindow.SmallScroll Down:=-42
    Range("B10:B21").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("ALAP Annual Claim 11-12.xls").Activate
    Range("K8").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("H23").Select
    ActiveWindow.SmallScroll Down:=6
    Windows("A6160 Int 11-12.xls").Activate
    Range("D10:D21").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("ALAP Annual Claim 11-12.xls").Activate
    Range("K38").Select
    ActiveSheet.Paste
    Windows("A6160 Int 11-12.xls").Activate
    Sheets("AV - UNISURE Co Ref 3").Select
    Range("D9:D20").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("ALAP Annual Claim 11-12.xls").Activate
    Range("J38").Select
    ActiveSheet.Paste
    Windows("A6160 Int 11-12.xls").Activate
    Sheets("AV - UNISURE Co Ref 2").Select
    Range("D10:D21").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("ALAP Annual Claim 11-12.xls").Activate
    Range("I38").Select
    ActiveSheet.Paste
    Windows("A6160 Int 11-12.xls").Activate
    Sheets("AV - UNISURE Co Ref 1").Select
    Windows("ALAP Annual Claim 11-12.xls").Activate
    Windows("A6160 Int 11-12.xls").Activate
    Range("G8:G19").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("ALAP Annual Claim 11-12.xls").Activate
    Range("H38").Select
    ActiveSheet.Paste
    Windows("A6160 Int 11-12.xls").Activate
    Range("F8:F19").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("ALAP Annual Claim 11-12.xls").Activate
    Range("G38").Select
    ActiveSheet.Paste
    Windows("A6160 Int 11-12.xls").Activate
    Sheets("AV - Ex RSA Life").Select
    ActiveWindow.SmallScroll Down:=-9
    Range("D10:D21").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("ALAP Annual Claim 11-12.xls").Activate
    Range("F38").Select
    ActiveSheet.Paste
    Windows("A6160 Int 11-12.xls").Activate
    Sheets("AV - Ex Natwest Life").Select
    Range("D9:D20").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("ALAP Annual Claim 11-12.xls").Activate
    Range("E38").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Copy
    Windows("A6160 Int 11-12.xls").Activate
    Sheets("AV - YL70 ETC").Select
    Range("D9:D20").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("ALAP Annual Claim 11-12.xls").Activate
    Range("D38").Select
    ActiveSheet.Paste
    Windows("A6160 Int 11-12.xls").Activate
    Sheets("AV-SIPP").Select
    Range("D9:D20").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("ALAP Annual Claim 11-12.xls").Activate
    Range("C38").Select
    ActiveSheet.Paste
    Windows("A6160 Int 11-12.xls").Activate
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    Sheets("AV-Admin Re").Select
    Range("D9:D20").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("ALAP Annual Claim 11-12.xls").Activate
    Range("B38").Select
    ActiveSheet.Paste
    Columns("M:M").EntireColumn.AutoFit
    Columns("B:M").Select
    Range("B7").Activate
    Selection.ColumnWidth = 14.43
    Columns("B:M").EntireColumn.AutoFit
    ActiveWindow.SmallScroll Down:=-15
    Sheets("Refunds Summary").Select
    ActiveWindow.SmallScroll Down:=-18
    Windows("A6160 Int 11-12.xls").Activate
    Range("B27:B38").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("ALAP Annual Claim 11-12.xls").Activate
    Range("B8").Select
    ActiveSheet.Paste
    Windows("A6160 Int 11-12.xls").Activate
    Sheets("AV-SIPP").Select
    Range("B27:B38").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("ALAP Annual Claim 11-12.xls").Activate
    Range("C8").Select
    ActiveSheet.Paste
    Windows("A6160 Int 11-12.xls").Activate
    Sheets("AV - YL70 ETC").Select
    Range("B27:B38").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("ALAP Annual Claim 11-12.xls").Activate
    Range("D8").Select
    ActiveSheet.Paste
    Windows("A6160 Int 11-12.xls").Activate
    Sheets("AV - Ex Natwest Life").Select
    Range("B27:B38").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("ALAP Annual Claim 11-12.xls").Activate
    Range("E8").Select
    ActiveSheet.Paste
    Windows("A6160 Int 11-12.xls").Activate
    Sheets("AV - Ex RSA Life").Select
    Range("B28:B39").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("ALAP Annual Claim 11-12.xls").Activate
    Range("F8").Select
    ActiveSheet.Paste
    Windows("A6160 Int 11-12.xls").Activate
    Sheets("AV - UNISURE Co Ref 1").Select
    Range("B25:B36").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("ALAP Annual Claim 11-12.xls").Activate
    Range("G8").Select