Macro For Inserting Rows, After Every Nth Row and adding text to the inserted row

Hey,

I have the macro to insert rows every nth row, but need to be able to insert text into that nth row.

I have a list of addresses and every 10 addresses i need to insert a 'seed' which will be have the same details everytime.
This is what i have so far...

Sub InsertRowsMod10()
Dim r As Long
r = 10
Do Until Len(Cells(r, 1)) = 0
Rows(r).Insert Shift:=xlDown
r = r + 10
Loop
End Sub

PHP Code: 

Option Explicit
Sub GPE_AddRows()
 Dim Rng As Range
 Dim Rws As Long, J As Long

 Set Rng = ThisWorkbook.Worksheets("Sheet2").UsedRange
 Rws = Rng.Rows.Count
 Rws = Rws - (Rws Mod 10)
 For J = Rws To 9 Step -10
    Rows(J & ":" & J).Insert Shift:=xlDown
    Cells(J, "B").Value = "GPE.COM"
 Next J
End Sub 


Awesome, perfect! thanks