How To Make Excel Recognize Cell Range Larger Than 32,767

I am trying to use the codes below to find text "xmxy" and "xmx" within a column, then try to move the cells between the texts to the right by one column. I believe that the problem for the code below is that

Cells(j, "B").Insert (xlShiftToRight)
or If Cells(i, "B").Value = "xmxy" Then has limitations. I read that when you dim a variale as integer, it only can contain value between -32,768 to 32,767 . But I have more than 32,767 rows of data. I have already set dim i,j, etc. as long, but how do you set the cells range to recognize number larger than 32,767?

Sub ShiftRightbbb()
Dim i As Long, j As Long, lastrow As Long, rowscount As Long, count As Long
lastrow = Range("b" & 65000).End(xlUp).Row
For i = 1 To lastrow
If Cells(i, "B").Value = "xmxy" Then
For j = i To lastrow
Cells(j, "B").Insert (xlShiftToRight)
If Cells(j, "C").Value = "xmx" Then GoTo Nextgroup
Next j
Nextgroup:
End If
Next i
End Sub