Help with a Macro-Paste method of worksheet class failed run time error 1004

[mcneill_garr]

' MacroH Macro
' Macro recorded 8/9/2011 by gmcneill

' Keyboard Shortcut: Ctrl+Shift+H
'
    ActiveWindow.ScrollColumn = 40
    ActiveWindow.ScrollColumn = 23
    ActiveWindow.ScrollColumn = 22
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    Selection.AutoFilter Field:=8, Criteria1:="Complete"
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 1
    Range("C4:C19").Select
    Selection.Copy
    ActiveWindow.ScrollColumn = 7
    Selection.AutoFilter Field:=8
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 20
    ActiveWindow.ScrollColumn = 23
    ActiveWindow.ScrollColumn = 27
    ActiveWindow.ScrollColumn = 28
    ActiveWindow.ScrollColumn = 30
    ActiveWindow.ScrollColumn = 32
    ActiveWindow.ScrollColumn = 36
    ActiveWindow.ScrollColumn = 45
    Range("BA6").Select
    ActiveSheet.Paste   
    Range("BC7").Select
End Sub

The last part is the problem that is in red----ActiveSheet.Paste

Thank you for your help