Thread: Find first empty row and paste into it

Hey guys,

I am trying to copy a selection (B13:B21) from one sheet called 'horizontal full list' and paste it into 'sheet1' into the first blank cell in column B from cell B15 onwards. The code I am trying to use is:

Code:

   Sheets("Horizontal Full List").Range("B13:B21").Copy
   Sheets("Sheet1").Cells(Rows.Count, "B").End(xlUp).Paste

But this is getting errors & I know it isn't complete i.e. to paste from cell B15 onwards.

Could anybody offer me any help with getting this sorted?!

Thanks,
Alex

You could do it like so:

Code:

Dim a As Long
a = WorksheetFunction.Max(15, Sheets("Sheet1").Cells(Rows.Count, "B").End(xlUp).Row + 1)
Sheets("Horizontal Full List").Range("B13:B21").Copy Sheets("Sheet1").Cells(a, "B")

Thanks Stephen, that works perfectly!!