Macro to automatically delete rows based on a condition

[Victtor]

Hi, I need a macro to delete a row and the next 5 rows based on what is in the first row.


In Column A, wherever "Daily System Time Period Menu Items Report" appears, I need that row and the next 5 rows deleted. On the 6th row after "Daily System Time Period Menu Items Report", I need that cell in column A to equal the cell in column G.


I hope this makes sense. I have tens of thousands of rows and I need to delete unnecessary rows and make this spreadsheet smaller

Thanks in advance!!

 

[Fluff]

How about

Sub DeleteSomeRows()
   Dim Rng As Range
   Application.ScreenUpdating = False
   With Range("A2", Range("A" & Rows.count).End(xlUp))
      .Replace "Daily System Time Period Menu Items Report", True, xlWhole, , False, , False, False
      For Each Rng In .SpecialCells(xlConstants, xlLogical).Areas
         Rng.Offset(6).Value = Rng.Offset(6, 6).Value
         Rng.Resize(6).EntireRow.delete
      Next Rng
   End With
End Sub

 

[Victtor]

Thanks Fluff, worked like a charm

 

[Fluff]

Glad to help & thanks for the feedback