Using excel VBA delete multiple lines in a active sheet

[Coosa41]

Here is an example of what I have and what I would like to accomplish.

OPEN WORK REPORT
Period
NUMBER	WORK ORDER	DESCRIPTION
TYPE
25524484	ACCIDENT	accident rollover
Period
NUMBER	WORK ORDER	WORK ORDER DESCRIPTION
TYPE
25858720	BULK ISSUE	Bulk Issue Parts
25858729	SERVICING	Bulk Oil
25791362	MAINTENANCE	PMI
25791353	MAINTENANCE	PMI
25791366	MAINTENANCE	PMI
25791369	MAINTENANCE	PMI
25791377	MAINTENANCE	PMI
25791379	MAINTENANCE	PMI
25791382	MAINTENANCE	PMI
25801712	ACCIDENT	ACCIDENT
25933250	ACCIDENT	ACCIDENT
Period
NUMBER	WORK ORDER	WORK ORDER DESCRIPTION
TYPE
25791353	MAINTENANCE	PMI
25791366	MAINTENANCE	PMI
25791369	MAINTENANCE	PMI

<tbody>
</tbody>

I want to delete the row begging with Period and also the next 2 rows with a result like below. OPEN WORK REPORT 25524484 ACCIDENT accident rollover 25858720 BULK ISSUE Bulk Issue Parts 25858729 SERVICING Bulk Oil 25791362 MAINTENANCE PMI 25791353 MAINTENANCE PMI 25791366 MAINTENANCE PMI 25791369 MAINTENANCE PMI 25791377 MAINTENANCE PMI 25791379 MAINTENANCE PMI 25791382 MAINTENANCE PMI 25801712 ACCIDENT ACCIDENT 25933250 ACCIDENT ACCIDENT 25791353 MAINTENANCE PMI 25791366 MAINTENANCE PMI 25791369 MAINTENANCE PMI <tbody> </tbody> Here is the code that I have but it only deletes the row with Period in it.

<tbody>
</tbody>

Sub Delete_Rows()
Dim lRow As Long
Dim iCntr As Long
lRow = 20
For iCntr = lRow To 1 Step -1
If Cells(iCntr, 1) = "Period" Then
Rows(iCntr).Delete
End If
Next
End Sub

 

[Fluff]

Hi & welcome to MrExcel
How about

Sub Coosa41()
   Dim Cl As Range
   With Range("A1", Range("A" & Rows.Count).End(xlUp))
      .Replace "Period", True, xlWhole, , False, , False, False
      For Each Cl In .SpecialCells(xlConstants, xlLogical).Areas
         Cl.Resize(3).EntireRow.Delete
      Next Cl
   End With
End Sub

 

[Coosa41]

Thank You for your time and help. This does exactly what I was looking to accomplish.

Again

Thank You

 

[Fluff]

You're welcome & thanks for the feedback