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.