Delete Cells when error

[Guest]

Hi,

what am I doing wrong here? I need to delete cells D & E if there is an
error in D.

With Sheets("Table")
LrowinD = .Cells(.Rows.Count, "D").End(xlUp).Row

For iCtr = LrowinD To FrowinD Step -1
With .Cells(LrowinD, "D")
If IsError(.Value) Then
.Cells(LrowinD, "D:E").Select
Selection.Delete Shift:=xlUp
End If
End With
Next
End With

Thanks for yor help.

 

[Guest]

Karen,

Try,

Sub marine()
FrowinD = 1
With Sheets("Table")
LrowinD = .Cells(.Rows.Count, "D").End(xlUp).Row
For ictr = LrowinD To FrowinD Step -1
If IsError(Cells(ictr, 4).Value) Then
Range("D" & ictr & ":E" & ictr).Select
Selection.Delete Shift:=xlUp
End If
Next
End With
End Sub

Mike

 

[Guest]

Yea!!! Thank you Mike!

Karen,

Try,

Sub marine()
FrowinD = 1
With Sheets("Table")
LrowinD = .Cells(.Rows.Count, "D").End(xlUp).Row
For ictr = LrowinD To FrowinD Step -1
If IsError(Cells(ictr, 4).Value) Then
Range("D" & ictr & ":E" & ictr).Select
Selection.Delete Shift:=xlUp
End If
Next
End With
End Sub

Mike

 

[JW]

Mike has provided a nice solution. However, I would recommend
removing the select line. It is good coding practice to not select
anything if not absolutely necessary.
You could replace this:
If IsError(Cells(ictr, 4).Value) Then
Range("D" & ictr & ":E" & ictr).Select
Selection.Delete Shift:=xlUp
End If

With this:
If IsError(Cells(ictr, 4).Value) Then _
Range("D" & ictr & ":E" & ictr).Delete Shift:=xlUp