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

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