Ending a Macro When it Reaches the End of a Data String

[JML0328]

Hello:

I am creating an invoicing batch system for one of our billing departments. It will allow the processor to enter one row of data for each bill. When done, the program will go row by row and create an invoice for each row of data.

Where I am having trouble is figuring out how to program the macro to stop once there is no more data.

This is so someone can put in as many rows of data as they want and still properly process the program.

Any help would be appreciated.

 

[VoG]

You should be able to do something like

Sub test()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LR
    'do something
Next i
End Sub