this is the code:

Sheets("Quality Monitoring").Select
Range("a2:C2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Range("a2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone
SkipBlanks:= _
False, Transpose:=False

I tried the 2nd method you specified:
Application.GoTo Sheets("Quality Monitoring").Range("a2:C2")
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Range("a2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone
SkipBlanks:= _
False, Transpose:=False

but got another error 1004 "Method range of object_Worksheet failed" o
the following line:
Range(Selection, Selection.End(xlDown)).Select

Please help!

--
Message posted from http://www.ExcelForum.com