Delete Range based on Cell Value and Shift Up

[JSAUS]

Hello,

I know this has been asked before, but I can't get any of the examples to work for my data.
I have data in columns A:D.
I need to check column D and if cell is 0 (a result of a formula) then delete A:D of that row and shift up.
Then go to next.
I only want to delete columns A to D because there is data in other columns that needs to stay there.

TIA

 

[DanteAmor]

Try this

Sub DeleteAD()
  Dim lr As Long, i As Long, r As Range
  lr = Range("D" & Rows.Count).End(3).Row
  Set r = Range("A" & lr + 1 & ":D" & lr + 1)
  For i = 1 To lr
    If Range("D" & i).Value = 0 Then Set r = Union(r, Range("A" & i & ":D" & i))
  Next
  r.Delete xlUp
End Sub

 

[JSAUS]

Thank you! That works perfectly.
I can understand most of that code, except the ".End(3)". Can you please explain to me what that does? Is that the same as "End(xlUp).Row"?

Thanks

 

[DanteAmor]

Is that the same as "End(xlUp).Row"?

Yes, it is the same