2nd delete not working...

[ValpoMan]

I have the following code...the second DO...IF...LOOP (Dim D) is not doing the delete...it does do the first one correctly....

Sub Master()
'
' Master Macro
'
' Keyboard Shortcut: Ctrl+m
'
Sheets("Do Not Adjust-Only Copy").Copy After:=Sheets(2)
Application.ScreenUpdating = False
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A4") = Now
ActiveSheet.Name = Format(Now, "mm-dd-yyyy hh-mm")
Range("U8").Select
ActiveCell.FormulaR1C1 = "=IF(SUM(RC[-13]:RC[-1])=0,""true"",)"
Selection.Copy
Range("U8:U4842").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Dim c As Range
EndRow = Range("U5000").End(xlUp).Row
Do: Set c = Range("U8:U" & EndRow & "").Find("true", LookIn:=xlValues, lookat:=xlPart, MatchCase:=False)
If c Is Nothing Then Exit Do
c.EntireRow.Delete
Loop
Columns("V:BC").Select
Selection.Delete Shift:=xlToLeft
Range("U8").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-16]>1,"""",""true"")"
Range("U8").Select
Selection.Copy
Range("U8:U1000").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Dim d As Range
EndRow = Range("U1000").End(xlUp).Row
Do: Set d = Range("U8:U" & EndRow & "").Find("true", LookIn:=xlValues, lookat:=xlPart, MatchCase:=False)
If d Is Nothing Then Exit Do
d.EntireRow.Delete
Loop
Application.ScreenUpdating = True
End Sub

 

[ValpoMan]

Maybe there is a way I can combine those loops so it does both deletes at the same time but it's above my level...

 

[lenze]

Can't you just use an AutoFilter macro for "true" and delete rows with SpecialCells(xlTypeVisible)?? Something like

Range("U8:U" & EndRow).AutoFilter Field:=1, Criteria1:="true"
Range("U8:U" & EndRow).SpecialCells(xlTypeVisible).EntireRow.Delete

lenze