Hi,

This finds the cell below the last entry in column A
Lastrow = Cells(Cells.Rows.Count, "a").End(xlUp).Row + 1

If you don't know hich column the last used row is in then use this
LastRow = UsedRange.Rows.Count + 1

Mike

"Miree" wrote:

I have some code which copies and pastes for a few differnet places how can i
paste from the next blank row