Inserting text at the beginning of a section of data and at the end

Hi,

I have sections of data that start with an identifier (OverComp) that require a <Start> before that section begins and a <Finish> before it reaches the next (OverComp).

The attached file explains it better as there is an example of before and after.

Thanks for any help,

David

Something like this, perhaps:

Sub AddStarts()

Const sSEARCH_STRING As String = "!OverComp!"
Const lTARGET_COL As Long = 1

Const sSTART As String = "<Start>"
Const sEND As String = "<Finish>"

Dim rngFind As Range
Dim rngNext As Range
Dim rngLastCell As Range

Set rngLastCell = Cells(Rows.Count, lTARGET_COL).End(xlUp)

Set rngFind = Columns(lTARGET_COL).Find(sSEARCH_STRING, LookIn:=xlValues, lookat:=xlWhole, MatchCase:=True, after:=rngLastCell)

If Not rngFind Is Nothing Then
  Do
    rngFind.EntireRow.Insert shift:=xlDown
    rngFind.Offset(-1).Value = sSTART
    Set rngLastCell = Cells(Rows.Count, lTARGET_COL).End(xlUp)
    Set rngNext = Columns(lTARGET_COL).FindNext(rngFind)
    If rngNext.Row <= rngFind.Row Then
      Set rngNext = rngLastCell.Offset(1)
    End If
    rngNext.EntireRow.Insert shift:=xlDown
    rngNext.Offset(-1).Value = sEND
    Set rngFind = rngNext
  Loop Until rngFind.Row >= rngLastCell.Row
End If

End Sub

Perfect Andrew, thanks for your hellp.