Row issue

Hello,
plese check the codes s i ma getting some error in row range
Sub sagstep6()
'
' sag Macro
' Macro recorded 8/18/2009 by ahmed.rashid1
'

'
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=10, Criteria1:="1"
Range("J3").Select
Range(Selection, Selection.End(xlDown)).Select
Rows("3:3128").Select
Range("J3").Activate
Selection.Delete Shift:=xlUp
Range("A1").Select
Selection.AutoFilter
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=8, Criteria1:="CRB CANCELLED."
Range("H5").Select
Range(Selection, Selection.End(xlDown)).Select
Rows("5:2486").Select
Range("H5").Activate
Selection.Interior.ColorIndex = 54
Range("A1").Select
Selection.AutoFilter
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=8, Criteria1:="INVALID/INCOMPLETE, HOLD."
Selection.AutoFilter Field:=9, Criteria1:="Match"
Range("I558").Select
Range(Selection, Selection.End(xlDown)).Select
Rows("558:2696").Select
Range("I558").Activate
With Selection.Interior
.ColorIndex = 38
.Pattern = xlSolid
End With
Selection.Copy
Sheets("Final Outstanding QF").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("Reconciliation").Select
Range("A1").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=8, Criteria1:="INVALID/INCOMPLETE."
Selection.AutoFilter Field:=9, Criteria1:="Match"
Range("I2").Select
Range(Selection, Selection.End(xlDown)).Select
Rows("2:3016").Select
Range("I2").Activate
Selection.Copy
With Selection.Interior
.ColorIndex = 38
.Pattern = xlSolid
End With
Selection.Copy
Sheets("Final Outstanding QF").Select
Range("H1").Select
Selection.End(xlDown).Select
Range("A12").Select
ActiveSheet.Paste
Sheets("Reconciliation").Select
Range("A1").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=8, Criteria1:="VALID, HOLD."
Range("H2679").Select
Range(Selection, Selection.End(xlDown)).Select
Rows("2679:2690").Select
Range("H2679").Activate
Selection.Copy
Sheets("Valid Orders").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("Reconciliation").Select
Application.CutCopyMode = False
Selection.ClearContents
Selection.Delete Shift:=xlUp
Range("A1").Select
Selection.AutoFilter
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=8, Criteria1:="VALID."
Range("H869").Select
Range(Selection, Selection.End(xlDown)).Select
Rows("869:2983").Select
Range("H869").Activate
Selection.Copy
Sheets("Valid Orders").Select
Range("H1").Select
Selection.End(xlDown).Select
Range("A4").Select
ActiveSheet.Paste
Sheets("Reconciliation").Select
Application.CutCopyMode = False
Selection.ClearContents
Selection.Delete Shift:=xlUp
Range("A1").Select
Selection.AutoFilter
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=8, Criteria1:="="
Range("D3").Select
Range(Selection, Selection.End(xlDown)).Select
Rows("3:3030").Select
Range("D3").Activate
Selection.Copy
Sheets("Completed QF").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("Reconciliation").Select
Application.CutCopyMode = False
Selection.ClearContents
Selection.Delete Shift:=xlUp
Range("A1").Select
Selection.AutoFilter
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=9, Criteria1:="="
Selection.AutoFilter Field:=8, Criteria1:="<>CRB CANCELLED.", Operator:= _
xlAnd
Range("H48").Select
Range(Selection, Selection.End(xlDown)).Select
Rows("48:59").Select
Range("H48").Activate
Selection.Copy
Sheets("Revalidate").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("Reconciliation").Select
Range("A1").Select
Application.CutCopyMode = False
Selection.AutoFilter
ActiveWorkbook.Save
End Sub