Excel Forum

Code: Select all

Sub Filldown()
 Range("A2").End(xlDown).Offset(1, 0).Select
 Selection.Filldown
End Sub

Code: Select all

Sub Filldown()
    For Each Line In Sheet1.Range("B2:B" & Sheet1.Range("B" & Rows.Count).End(xlUp).Row)
    If Sheet1.Range("A2").End(xlDown).Offset(1, 1).Value = "" Then
    Else
       Sheet1.Range("A2").End(xlDown).Offset(1, 0).Select
       Selection.Filldown
    End If
    Next Line
End Sub

Code: Select all

Sub Filldown()
    If Range("A2").End(xlDown).Offset(1, 1).Value = "" Then
    Else
       Range("A2").End(xlDown).Offset(1, 0).Filldown
    End If
End Sub

Code: Select all

With Sheet1
    For Each r In .Range("a2", .Range("a" & .Rows.Count).End(xlUp))
        If r.Value = "" Then
            r.Value = r.End(xlUp).Value
        End If
    Next r
End With