Insert a constant value after every row in XL

Hello,

I would like have a macro which inserts a constant value after every existing rows in xl.

E.g

I have rows in column A,macro should read every row in column A and check for a value ' 05 ', if true then insert a new row with below value

' 05 FILLER PIC X VALUE '/'.'


Example below ..
colUMN A

05 HFKAHHAFHKHF PIC X.
88 HFKAHHAFHKHF PIC X.
05 HFKAHHAFHKHF PIC X.
05 HFKAHHAFHKHF PIC X.
05 HFKAHHAFHKHF PIC X.

this should be converted to something like below --

05 HFKAHHAFHKHF PIC X.
05 FILLER PIC X VALUE '/'.
88 HFKAHHAFHKHF PIC X.
05 HFKAHHAFHKHF PIC X.
05 FILLER PIC X VALUE '/'.
05 HFKAHHAFHKHF PIC X.
05 FILLER PIC X VALUE '/'.
05 HFKAHHAFHKHF PIC X.


Please could someone help me on this request?????

cheers..
Prakash.S