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![TABLE="width: 500"]
<tbody>[TR]
[TD][TABLE="width: 184"]
<tbody>[TR]
[TD="class: xl65, width: 184"]May 18, 2018 5:02:02 PM EDT[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 184"]
<tbody>[TR]
[TD="width: 184"]blank[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD]blank[/TD]
[/TR]
[TR]
[TD][TABLE="width: 184"]
<tbody>[TR]
[TD="class: xl65, width: 184"]Originating or Terminating CUCM End User:[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 184"]
<tbody>[TR]
[TD="class: xl65, width: 184"]Department: Sales[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 184"]
<tbody>[TR]
[TD="class: xl65, width: 184"]Outbound Calls: 22[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 184"]
<tbody>[TR]
[TD="class: xl65, width: 184"]Average Outbound Duration: 00:07:14[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 184"]
<tbody>[TR]
[TD="class: xl65, width: 184"]Total Outbound Duration: 02:39:27[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD]blank[/TD]
[/TR]
[TR]
[TD][TABLE="width: 184"]
<tbody>[TR]
[TD="class: xl65, width: 184"]Call Details[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 184"]
<tbody>[TR]
[TD="class: xl65, width: 184"]Date/Time Origination[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
</tbody>[/TABLE]

 

[Obied70]

To add to this, the number of rows needing deleted will always be 10. So essentially it would be, on first blank cell, delete that row and the following 9 rows.

 

[Fluff]

How about

Sub DelRws()
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
End Sub

 

[Obied70]

Seems to be close but it's deleting things it shouldn't be deleting and it's also not running through the entire worksheet

 

[Obied70]

I've edited Fluff's code to look like this

Sub DelRws()With Range("A:A")
.SpecialCells(xlBlanks).EntireRow.Delete
  
End With
End Sub

Which will delete all blank rows, now I just need delete first blank row then next n number of rows[/SUB]

 

[Fluff]

Can you please re-explain what you are after.
My understanding was that you wanted to delete every row from the 1st blank cell down to the cell containing "Date/Time Origination"

 

[Obied70]

That's correct however, this cycle repeats throughout the worksheet and it seems as though your code stopped after the first instance. My apologies, I didn't explain that well enough.

 

[Fluff]

In post#4 you said

but it's deleting things it shouldn't be deleting

Is this correct? If so can you please explain.
It would also be helpful if you could post some more of your data, so that I can see if there any patterns. Tools to enable you to do this can be found here

 

[Obied70]

There will always be a range of 10 cells that need deleted, starting with first blank cell, ending with Date/Time. The data between that range varies throughout the sheet but anyway I'm having issues getting the add-ins to work, you can disregard thanks.

 

[Obied70]

Okay Fluff my apologies, this macro is working quite well, however if we could modify it to run the entirety of the worksheet (put a loop argument in) that would be amazing.