Sub fill Dim i As Integer For i = 1 To 10 If Cells(i, 1).Value = "" Then Cells(i, 1).FillDown Else End If Next i End Sub