For now I just highlighted the matching numbers in Col A
Option Explicit
Sub SandH()
Dim rData As Range
Dim aryData As Variant, aryMatch() As Long, aryTemp As Variant
Dim i As Long, j As Long, iOffset As Long
Dim sMatch As String
sMatch = ActiveSheet.Range("I1").Value ' <<<<< change
aryTemp = Split(sMatch, " ") ' start at 0
ReDim aryMatch(LBound(aryTemp) + 1 To UBound(aryTemp) + 1)
For i = LBound(aryTemp) To UBound(aryTemp)
aryMatch(i + 1) = aryTemp(i)
Next i
Set rData = ActiveSheet.Range("N4") ' <<<<<<<<<change
aryData = Range(rData, rData.End(xlDown)).Value ' 2 Dim array
iOffset = rData.Row - 1
For i = LBound(aryData, 1) To UBound(aryData, 1) - 2
For j = 0 To 2
If aryData(i + j, 1) <> aryMatch(j + 1) Then GoTo NextData
Next j
ActiveSheet.Cells(i + iOffset, 1).Resize(3, 1).Interior.Color = vbGreen
NextData:
Next i
End Sub
Edit - this can be generalized to match more than just 3