Next empty cell in range

Hello Fraggs,

You are looking for the End property of a Range.

Finding the Last Non Blank Row in a Range:
LastRow = Range("A" & Rows.Count).End(xlUp).Row

Activate the Next Cell:
Cells(LastRow + 1, "A").Activate

Sincerely,
Leith Ross