delete entire row based on specific two words

[abdo meghari]

hi
I would delete entire row where contains "Purchase Order" is existed in column B "
original data

1
	A	B	C
1	Sr	Description	Accepted Quantity
2	1	BS 1200R20 G580 TCF	1,147 Unit
3		Purchase Order: PO-2022-00009
4	2	BS 13 R22.5 R187	60 Unit
5		Purchase Order: PO-2022-00009
6	3	BS 315/80 R22.5 R184	98 Unit
7		Purchase Order: PO-2022-00009
8	4	BS 315/80 R22.5 G580	20 Unit
9		Purchase Order: PO-2022-00009
10	5	BS 1400R20 VSJ TCF	60 Unit
11		Purchase Order: PO-2022-00009
12	6	BS 1200R24 G580	100 Unit
13		Purchase Order: PO-2022-00009
14	7	BS 385/65 R22.5 R164	20 Unit
15		Purchase Order: PO-2022-00009
1

result should n be

1
	A	B	C
1	Sr	Description	Accepted Quantity
2	1	BS 1200R20 G580 TCF	1,147 Unit
3	2	BS 13 R22.5 R187	60 Unit
4	3	BS 315/80 R22.5 R184	98 Unit
5	4	BS 315/80 R22.5 G580	20 Unit
6	5	BS 1400R20 VSJ TCF	60 Unit
7	6	BS 1200R24 G580	100 Unit
8	7	BS 385/65 R22.5 R164	20 Unit
1

 

[Fluff]

How about

Sub abdomeghari()
   Range("C:C").UnMerge
   With Range("B2", Range("B" & Rows.Count).End(xlUp))
      .Replace "Purchase Order*", "", xlPart, , False, , False, False
      .SpecialCells(xlBlanks).EntireRow.Delete
   End With
End Sub

 

[abdo meghari]

thanks so much !

 

[Fluff]

You're welcome & thanks for the feedback.