Sub InsertRow()
Dim LastRow As Long
Dim RowNdx As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
For RowNdx = 6 To LastRow Step 6
Rows(RowNdx).Insert
Next RowNdx
End Sub

Mike Mike wrote:
> I need to go from this:
> apple
> orange
> widget
> 7845
> santa
> 34blue
> test
> witch
> never
> 45hold
> 74more
>
> to this:
> apple
> orange
> widget
> 7845
> santa
> TEXT
> 34blue
> test
> witch
> never
> 45hold
> TEXT
> 74more
>
> Anyone know how to do this?
>
> Regards
> Mike