Macro help (delete rows based on row value)

[Obied70]

Hi All,
I need some help from all of you geniuses. I'd like to utilize a macro to delete rows in a spreadsheet based on a repeating set of formats. In the table below, the macro would need to start deleting at the first empty row (2) and finish with deleting the last row "Date/Time Origination." If it makes it easier, the final row is always colored blue. Any help would be great, thanks!

May 18, 2018 5:02:02 PM EDT <tbody> </tbody>

blank <tbody> </tbody>

blank

Originating or Terminating CUCM End User: <tbody> </tbody>

Department: Sales <tbody> </tbody>

Outbound Calls: 22 <tbody> </tbody>

Average Outbound Duration: 00:07:14 <tbody> </tbody>

Total Outbound Duration: 02:39:27 <tbody> </tbody>

blank

Call Details <tbody> </tbody>

Date/Time Origination <tbody> </tbody>

<tbody>
</tbody>

 

[Fluff]

In that case could you post some more data so that I can see what is needed.

 

[Obied70]

the add-ins are not working on this machine for whatever reason so I can't get my worksheet posted however all i need is for the code youve already posted to repeat itself until it reaches the end of the sheet.

 

[Fluff]

You can try this, but I've no idea if it will work.

Sub DelRws()
Dim i As Long
For i = 1 To Application.CountIf(Range("A:A"), "Date/Time Origination")
   With Range("A:A")
      .Replace "Date/Time Origination", "=XXX", xlWhole, , False, , False, False
      .Rows(.SpecialCells(xlBlanks)(1).Row & ":" & .SpecialCells(xlFormulas, xlErrors)(1).Row).EntireRow.Delete
      .Replace "=XXX", "Date/Time Origination", xlWhole, , False, , False, False
   End With
Next i
End Sub

 

[Obied70]

perfect!

 

[Fluff]

That's a bit of luck

Glad to help & thanks for the feedback

 

[Obied70]

Thank you for your help!