How to use looping to delete cells of similar value

Requirement:

The user is looping through rows by looking only at I column and J column contents. If there are more than 2 rows similar based on I and J value then the user deletes the rest of rows. ( 2 consecutive values in I and J can be similar but not more than that).

The problem the user is facing is that it doesnt take into account the name (column I) and just take into account the values in Column J. The user wants if the current cell and the cells up and below are similar then delete the row.

The code that I am currently using is as follows:

Code:

Dim rowcnt As Long
Dim ia As Long
Dim ja As Long
Dim jaa As Long

    rowcnt = Cells(Rows.Count, "H").End(xlUp).Row
    For ia = 2 To rowcnt
    ja = ia - 1
    jaa = ia + 1
    If Range("J" & ia).Value = Range("J" & ja).Value And Range("J" & ja).Value = Range("J" & jaa).Value And _
    Range("I" & ia).Value = "SCATTER 20X20" And Range("I" & ja).Value = "SCATTER 20X20" And Range("I" & ja).Value = "SCATTER 20X20" Then
    Range("G" & jaa, "M" & jaa).Delete
    End If
    Next ia

https://www.ozgrid.com/forum/forum/help-forums/excel-vba-macros/1214071-loops-and-similar-cell-delete

Solution:

Code:

Private Sub CommandButton1_Click()
Dim x, i&, ii&, r As Range, U As Range
 Set r = [G1].CurrentRegion
 x = r.Resize(r.Rows.Count + 2).Value: On Error Resume Next
 For i = 2 To UBound(x) - 2
    If x(i, 2) = x(i + 1, 2) And x(i, 2) = x(i - 1, 2) Then
       If x(i, 3) = "SCATTER 20X20" And x(i + 1, 3) = "SCATTER 20X20" And x(i - 1, 3) = "SCATTER 20X20" Then
           Set U = Union(IIf(U Is Nothing, r(i + 1, 1).Resize(, 7), U), r(i + 1, 1).Resize(, 7))
       End If
    End If
 Next i
  If Not U Is Nothing Then
    MsgBox U.Address
    U.Delete
  End If
End Sub

Obtained from the OzGrid Help Forum.

Solution provided by graha_karya.