Help with a VBA macro ending with a LOOP

[5h1l]

Hi Guys

I have a macro created and it starts on the cell which the user specifies and ends on the cell below. Is there a way in which i can have it looped until the end cell is empty?

Many Thanks

Shil



--------------------------------

Sub moverec()
'
' moverec Macro
'
' Keyboard Shortcut: Ctrl+m
'
    ActiveCell.Offset(0, 36).Range("A1:BE1").Select
    Selection.Copy
    Sheets("Bank File").Select
    Range("A1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(-1, 0).Range("A1:D1").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(2, 0).Range("A1").Select
    ActiveSheet.Paste
    Sheets("Payroll Calculatios").Select
    ActiveCell.Offset(1, -36).Range("A1").Select
End Sub