Help With Delete Row Code

[Dazzawm]

I am a novice when writing code but have written the code below that looks for the word 'Bus' (as an example) in a cell and delete the entire row. How do I change the code so that it deletes the row if the word 'Bus' is amongst other data in the cell and not on its own. Thanks. Also I want the code to look for all case types (BUS, bus, Bus)

Sub Delete()
Application.ScreenUpdating = False
Dim A As Long
Dim B As Long
Range("R1").Select
A = Selection.CurrentRegion.Rows.Count
For B = 1 To A
If Selection.Value = "Bus" Then 'Change word when necessary
Selection.EntireRow.Delete
Else
Selection.Offset(1, 0).Select
End If
Next B
Application.ScreenUpdating = True
End Sub

 

[VoG]

For me, before

Excel Workbook
	R
1	Heading
2	business
3	abus
4	bus
5	x
6	busy
7	v
8	buses
9	ddd
Sheet1

After

Excel Workbook
	R
1	Heading
2	business
3	abus
4	bus
5	busy
6	buses
7
8
9
Sheet1

Can you post a small sample of what you have in column R.