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.

Nancy

Sub findbottom()
Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0).Activate
End Sub

Gord Dibben Excel MVP

On Wed, 21 Apr 2004 20:56:13 -0700, "Nancy"
wrote:

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.

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.