Using offset to select next empty cell

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)