SyntaxFix
Write A Post
Hire A Developer
Questions
This does it:
Do c = c + 1 Loop While Cells(c, "A").Value <> "" 'prints the last empty row Debug.Print c