Sub macro_damaniam()
Application.ScreenUpdating = False
Dim found_rng, count
Set found_rng = ActiveSheet.Cells.Find("Total")
Do Until found_rng = "" Or Rows(found_rng.Row).Hidden = True
If Range("K" & found_rng.Row) = 0 Then
count = found_rng.Row - 1
Do Until Range("A" & count) = "" Or Range("A" & count) = " "
count = count - 1
Loop
Range("A" & count & ":A" & found_rng.Row).EntireRow.Hidden = True
End If
Set found_rng = ActiveSheet.Cells.FindNext(found_rng)
Loop
Application.ScreenUpdating = True
End Sub
?
Bookmarks