How to delete a value in cell based on another cell's value using macro

[lina91]

Greetings,
I am very new to VBA and I would really appreciate your help on the matter! I want to write a code so that it reads the value in column D and if this is blank then it assigns the cell in the same row but on the next column (column E) with blank value. And this process continues until it finds a blank cell in column A. Please I would be very grateful if you could help me in this!

 

[My Aswer Is This]

Try this:

Sub Look_Down()
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 1 To Lastrow
        If Cells(i, "D").Value = "" Then Cells(i, "E").Value = ""
    Next
Application.ScreenUpdating = True
End Sub

 

[Marcelo Branco]

Or

Sub aTest()
    Dim LastRow As Long
    
    LastRow = Cells(Rows.Count, "A").End(xlUp).Row
    With Range("E1:E" & LastRow)
        .Value = Evaluate("=IF($D$1:$D$" & LastRow & "="""",""""," & .Address & ")")
    End With
End Sub

M.