Match Date between two columns and Delete if found blank

[kshitij_dch]

Hello All,

I have two Columns , A and B, Column A has "Allocation Date" , Column B has Completion Date, i am working on a formula that if any cell in column B is BLANK than whatever Date in Column A corresponding to Column B Blank Cell should become Blank

I am ok with VBA if it could help me getting my answer

 

[mohadin]

Try

Sub test()
    Dim cel As Range
    Application.ScreenUpdating = False
    For Each cel In Range("B1:B" & Cells(Rows.Count, 2).End(xlUp).Row)
        If cel = "" Or cel = " " Then cel.Offset(, -1).ClearContents
    Next
    Application.ScreenUpdating = True
End Sub
End Sub