Sub Macro1()
With Intersect([G2:G60000], ActiveSheet.UsedRange)
.FormulaR1C1 = "=MATCH(LEFT(RC2,3)&LEFT(RC4,3),{""234222"";""444123"";""666555""},0)"
.SpecialCells(xlCellTypeFormulas, 16).EntireRow.Hidden = True ' .Delete ' ?
.ClearContents: End With
End Sub