insert row variation

Hi,
The code below inserts a row below JE if there is a blank cell. How do I change the code if I want to insert a row two cells underneath JE.

Dim i As Long, j As Long
j = Range(Range("A1"), Range("A65536").End(xlUp)).Count
For i = j To 2 Step -1
If Cells(i, 1) = "" And Cells(i, 1).Offset(-1, 0) = "JE" Then

Cells(i, 1).EntireRow.Insert
Cells(i, 2) = "XX"
End If
Next i
End Sub

Thanks once again for your kind help
Andonny