insert 3 blank row if find a string data on column A

I need a VBA code that can insert 3 blank row before the row have a string in their Column A,


For example

A1 : Boy
A2 : 1234 BOY
A3 : 1234

When run the VBA it will be :

A1:
A2:
A3:
A4:Boy
A5:1234 BOY
A6:1234

and have a loop for others .


Thank you very much

How about editing this: http://www.vbaexpress.com/forum/showthread.php?t=45746

Ok it is good but how can I do this ?

Thank you for your help .

Record macro and then insert lines as normal, stop macro. This will place the insert line code into a new module. Paste the results on the forum.

This is a good way of getting to know what you need to write.

Thank you very much , if is it possible for you please help me on this subject , I need it .

Thank you .

http://www.dummies.com/how-to/conten...n-excel-2.html