HI, can anyone point out why this isn't working?
Sub CopyDataOnly()
Sheets("Sheet1").Range("A10:A100").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.Copy
Sheets("Sheet2").Select
Range("A10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
End Sub
I end up getting an error after "Selection.Copy".
Basically I'm looking to select all cells with data and move them to
another worksheet and paste them.
Bookmarks