Sub aa()
Windows.Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim name As String
Dim path As String
Dim i As Long
name = ThisWorkbook.name
path = ThisWorkbook.path
Windows(name).Activate
Sheets(1).Select
f = ActiveSheet.[a65536].End(xlUp).Row
For i = 2 To f
If Cells(i, 1) = "" Then Cells(i, 1) = Cells(i - 1, 1)
Next
Windows.Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub