this may help

Sub rename()
For Row = 1 To 65000

If Sheets("sheet1").Cells(Row, 1) = "" Then
Sheets("sheet1").Cells(Row, 1) = Sheets("sheet1").Cells
(Row - 1, 1).Value
If Sheets("sheet1").Cells(Row, 2) = "" Then GoTo 12
End If
Next Row
12 Sheets("sheet1").Cells(Row, 1) = ""
End Sub

Igor