Expertos los molesta con el siguiente código

Estimados quisiera repetir esta macro hasta que encuentra la celda E2 de la hoja PASO1 vacía, se las dejo por si me pueden ayuda.-

Sheets("PASO1").Select
Range("E2:X2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("PASO FINAL").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("paso final").Select
Range("J2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormat = "m/d/yyyy"
Sheets("PASO1").Select
Rows("2:999").Select
Selection.Delete Shift:=xlUp
Application.CutCopyMode = False
'Copia y guarda la hola paso final
Sheets("PASO FINAL").Copy
Dim dia As String
Dim tim As String
Dim nom As String
Dim ext As String
Dim Path As String
dia = Format(Date, "DD-MM-YYYY")
tim = Format(Time, "H-MM-SS")
ext = ".xls"
nom = nom + " " + dia + " " + "Hora" + " " + tim & ".xls"
Path = "d:\CONTROL\INFORME" & nom
ActiveWorkbook.SaveAs Filename:=Path, FileFormat:=xlNormal
ActiveWorkbook.Close
End Sub