Hi Patrick,

Thanks for your message first.

But, it is not respond. Can help again?

tlee

for rw = 1 to range("A65500").End(xlUp).Row
if cells(rw,1)="" then cells(rw,"D")= cells(rw,"D") + 1
next

"tlee" wrote in message
...
Dear all,

Could anyone help how do I loop to check cells of column A if there is
not empty, then add 1 to cell of column D and stop until the cell of
column A is empty?

Thanks for your help.

tlee