Help With loop??

[sparkyhp]

Please can someone help. I have a list of Account names down colunm A of my spreadsheet and what I want to do is look at cell A5 bring up that account detail and print which is fine because I have that working but then I want to go to cell A6 get the detail for that account and print so really I want it to go down each one repeating the same loop until it reaches a blank and stops. This number of cells in A will vary each time it is run so any help would be really really appreciated.

Public Sub Test()
'Created using Vision XL Macro Builder 10/03/2009 10:59 by Heidi Park.
'Generated using Vision XL Macro Builder version 6.2.1.
    On Error GoTo ErrorHandler
1:
    Application.ScreenUpdating = False
2:
    Application.Range("$A$5:$A$282").Clear
3:
    Application.Range("$A$5").Select
    oXLBMacro.DataFill "Allacc", LsXLBSetupFileTypeWorkbook
4:
    Application.Range("$C$20:$C$27").Delete
5:
    Application.Range("$C$20").Select
    oXLBMacro.DataFill "COMPNAME", LsXLBSetupFileTypeWorkbook
6:
    Application.Range("$C$21").Select
    oXLBMacro.DataFill "ADD", LsXLBSetupFileTypeWorkbook
7:
    Application.Range("$C$31:$K$62").Delete
8:
    Application.Range("$C$31").Select
    oXLBMacro.DataFill "Detail", LsXLBSetupFileTypeWorkbook
    'Ensure Application is ready to resume control
    Application.ScreenUpdating = True
    Application.Interactive = True
    Exit Sub