Loop stuck in exit sub

[countryfan_nt]

Hello friends, Hope all is well!

I am having difficulty with looped code here.

I want the loop to run on range R10 and so on.
if the cells = "", then exit sub if cell does not "" then proceed,
The problem I am having is that the code is not moving to the next cell

please help me, and thanks a lot in advance!

Please Login or Register  to view this content.

[Norie]

Any chance you could upload a sample workbook?

Click on GO ADVANCED, scroll down and click Manage Attachments.

[AB33]

You might have a gap in your data and the loop probably will not move down.

Change this line

NumRows = Sheets("pt").Range("bR10", Range("bR10").End(xlDown)).Rows.Count

INTO

NumRows = Sheets("pt").Range("bR10", Range("bR10").End(xlUp)).Rows.Count

[cytop]

And you might just be exiting the procedure as soon as a blank cell is found... You need to check the logic around the lines

Please Login or Register  to view this content.

[countryfan_nt]

after wrestling with code, I think I got it! any suggestions, or comments?
is this an efficient way? thanks!

Please Login or Register  to view this content.

[AB33]

If your intention is to copy the range, you do not need to loop over the rows, but I do not know what is the call function is doing and so this code ignores the call function.

Please Login or Register  to view this content.