This file has been running just fine....
But now I got this
Run Time error '1004':
PasteSpecial method of Range Class failed.
any suggestions
But now I got this
Run Time error '1004':
PasteSpecial method of Range Class failed.
any suggestions
Rich (BB code):
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AV2").Select
Application.CutCopyMode = False
Range("A1:AV1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=48, Criteria1:="DELETED"
LstRw = Cells(Rows.Count, "A").End(xlUp).Row
Range(Cells(2, 1), Cells(LstRw, 48)).Copy
Sheets("Deleted Records").Select
LstRw = Cells(Rows.Count, "A").End(xlUp).Row
Range(Cells(LstRw + 1, 1), Cells(LstRw + 1, 48)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Sheets("SKPI 2008").Select
Application.CutCopyMode = False
Range("A1").Select
Selection.AutoFilter
Application.Goto Reference:="R1C1:R3500C48"
Range("A1").Select
Application.Goto Reference:="R1C1:R3500C48"
Selection.Sort Key1:=Range("AV2"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1:AV1").Select