Insert blank row after each cell that contains text in column A

I am after some code to insert a blank row after each cell that contains text in Column A.



Row 1 is blank

Column A has text in random cells
Column B has text all in cells usually down to B250

I have attached a sample workbook for reference.

Assistance appreciated.
Thanks

Please Login or Register  to view this content.

Works perfectly,

Thanks AB33

as an option

Please Login or Register  to view this content.