cLastRow = Cells(Rows.Count,"A").End(xlUp).Row

--

HTH

RP
(remove nothere from the email address if mailing direct)


"mr.mcfly" wrote in message
om...
Hi
I would like to append data after the last occupied cell of a row
using VBA. How do I determine the last cell containing data?
Ta much
Martin