Insert blank row - on certain criteria

[Haydo]

on a worksheet consisting of about 20 columns.
I'd like to insert a blank row..

each time ascending numbers end down the page - (in column B)
eg.
1
2
3
4
5 I need the blank row inserted here, in between the last number & 'race'
race
tn
1
2
3
race
tn

so the end result is
1
2
3
4
5
(blank row)
race
1
2
3
(blank row)
race
tn

In column B, There are many (between 20 and 100) of these sets of ascending numbers, which end with a cell containing the word "race" and a number eg "race 3", then the next line is a cell containing 'TN', then the numbers start from 1 again, and so on.

--
If it is easier. A blank row could be inserted whenever the word 'race' is in a cell. There are 1 or 2 numbers in the same cell as 'race'. There is always a space between the word 'race' and the numbers.
There are functions used in other columns on the page

any ideas?
Thanks

 

[AlphaFrog]

Sub Insert_Rows()
    Dim rng As Range
    Application.ScreenUpdating = False
    Range("B1", Range("B" & Rows.Count).End(xlUp)).AutoFilter Field:=1, Criteria1:="Race*"
    Set rng = Range("B2", Range("B" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible)
    ActiveSheet.AutoFilterMode = False
    rng.EntireRow.Insert
    Application.ScreenUpdating = True
End Sub

 

[Haydo]

That is perfect!
thanks.