How can I delete a row based on Columns H and I

  • Thread starter Thread starter ICSAnalyst
  • Start date Start date
Sub Macro5()
'
' Macro5 Macro
' Macro recorded 11/15/2004 by RXVP
'

'
Dim t As Integer
Dim b As Boolean
b = True
While b
t = t + 1
If Range("a" & t).Value = "" Then
b = False
Else
If (Range("h" & t).Value = "0" And Range("i" & t).Value = "0"
Then
Rows(t & ":" & t).Select
Selection.Delete Shift:=xlUp
End If
End If
Wend
End Su
 
Back
Top