Using offset to select next empty cell

Hi Leith,

Thank you for your reply.

The code copies the cell just fine, but does not offset to the next row. It just copies over the previous entry.

Thanks again.

the problem occurs if the column begins empty. the code will return a 1 as the initial answer and then every answer thereafter will be 1 so it never increments itself.

the following code will do as you wish but the list will start from row 2 downwards

let me know how you go

code=

Dim LastRow As Long
LastRow = Sheet10.Cells(Rows.Count, "A").End(xlUp).Row
If LastRow >= 1 Then LastRow = LastRow + 1
Sheet14.Range("k1").Copy Destination:=Sheet10.Cells(LastRow, "A")

Ok, I can live with that

Thanks everyone

Dim xRange As Range
Set xRange = Sheet10.Range("a1").End(xlUp)
If xRange.Value <> "" Then Set xRange = xRange.Offset(1,0)