Insert cell text every 5 rows in a column

[Mike Mike]

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

[VBA Noob]

See your original post

[gumby]

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