When I use the following code, everything works fine(I had a row
selected for copying in the first wrksheet. The row is copied to Row 54
of present sheet & Row2 of the 2nd sheet

Sub CopyTo()
Selection.Copy
Range("A54").PasteSpecial

Worksheets("Sent Messages").Range("A2:B2").PasteSpecial
End Sub
--------------

However, I need to install a sub that will detect if the row is already
populated and move down the column to the last row.

When I try:
Worksheets("Sent Messages").Range("A2:B2").Select
or
Worksheets("Sent Messages").Range("A2:B2").Activate

so I can proceed, I get an error message.

What am I doing wrong?
Thanks


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!