SUPER QUICK:: copy Cell UP question

Hi,
Try this code on your problem.

Sub CopyUpA()
    Dim RowCtr As Double
    Dim LastRow As Double
    LastRow = Cells(Rows.Count, "A").End(xlUp).Row

    For RowCtr = LastRow To 1 Step -1
        If Cells(RowCtr, "A") = "" Then
            Cells(RowCtr, "A") = Cells(RowCtr + 1, "A")
        End If
    Next RowCtr
End Sub