Next is

Worksheets("Sheet1").Range("A1").End(xlDown).offse t(1,0)

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Nancy" wrote in message
...
i'm taking data from different sheets and pasting them into a new sheet. i
was trying to create code that will let me find the next blank area in
column A so i can paste data from 1 sheet into the next empty cell. Tks for
the assistance.