Quote Originally Posted by dkim.ags View Post
I can't really tell what you are doing in your code, but if I am understanding you correctly, this should work.


Sub whatever()

Do
     'Insert your code
     ActiveCell.Offset(1, 0).Select
Loop Until IsEmpty(ActiveCell(0, 0))

End Sub
If you could explain what you are trying to do, might be easier for me to come up with a code.
Hi All I am trying to do is merge 3 cells together. D18 D19 & D20 but going down to a D1000 or so.

I have recorded the macro rather than writing it and thats why there is probably so many command lines.

I can get it to work on one line but can not get it to step down a row - complete the merge and then step down again.

This is probably so simple but I may be runnibg before i can walk with VBA's