Que la macro se vuelva a ejecutar cuando termino.

Buenas tardes. El siguiente código busca que la celda este vacía y autocompleta con los datos de la fila anterior. Yo quisiera que cuando termine de hacerlo, comience nuevamente hasta un rango que yo le indique. Es decir, que complete, vuelva a buscar la celda vacía y vuelva a completar.

Sub CompletarListado()
Application.ScreenUpdating = False
Range("B31").Select
Selection.End(xlDown).Select
Selection.Copy
Selection.End(xlDown).Select
ActiveCell.Offset(-1, 0).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A31").Select
Selection.End(xlDown).Select
Selection.Copy
Selection.End(xlDown).Select
ActiveCell.Offset(-1, 0).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Desde ya muchas gracias.

Atentamente.

Lucas.