For i = Range("A1").End(xlDown).Row To 1 Step -1
If Cells(i,"A").alue = "the_value" Then
Rows(i+1,Resize(3).insert
End If
Next i

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"David" wrote in message
...

Looking to get a macro that once it sees a variable in a particular table
inserts 3 rows and inserts two rows in the space created.

Then moves down to the next occurance of that variable and does the same-
until it reacheses the end of the file

Any help would be much appreciated
--
Thanks for your help