Here is my kick at it... Very similar to Ron's... You can define the sheet to
search


Set wks = ActiveSheet (or whatever sheet you want)
and the range to search
Set rngToSearch = wks.Range("B2:B10") 'Or whatever range you want....


Public Sub InsertRows()
Dim wks As Worksheet
Dim rngToSearch As Range
Dim rngFound As Range
Dim rngFirst As Range

Set wks = ActiveSheet
Set rngToSearch = wks.Range("B2:B10")
Set rngFound = rngToSearch.Find("Line", , xlValues, xlPart)

If Not rngFound Is Nothing Then
Set rngFirst = rngFound
rngFound.EntireRow.Insert (xlDown)
Do
Set rngFound = rngToSearch.FindNext(rngFound)
rngFound.EntireRow.Insert (xlDown)

Loop Until rngFound.Address = rngFirst.Address
End If

End Sub

HTH

"Nigel Bennett" wrote:

I used the Insert a blank column function and it works
great, I was trying to work out how to modify it to insert
a blank row, in column B ther will be the word line, if it
finds that word I want it to insert a blank row after that
and then continue on to a maximum of x number of rows

Any Ideas

Thanks