Thanks guys for your time, but none of your solutions worked. Maybe I should
be a little more specific. I have a range of cells that i've copied on one
sheet and want pasted into another sheet.but starting at the first blank
cell in Column A. Here is the code i'm using. Let me know what i'm doing
wrong.

Sub Move()

Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Data").Select
Range("A1").Select
Range("A:A").Find(What:="", After:=Activecell) <---this is where i get
the error.
ActiveSheet.Paste
Range("A1").Select
Sheets("CLSEXCEL").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Data").Select
Range("A1").Select

End Sub

"Dominique Feteau" wrote in message
...
How do I write a line in a macro I'm trying to create.

What I want is for it to start in A1 and basically go to the next blank
cell going down in Column A?

How do i do that?

Niq