'Populate results
Cells(resultlocy, resultlocx).Value = Cells(Worksheets(“Data”).Cells(y, 1).Value, Worksheets(“Data”).Cells(y, 2).Value).Value
If Cells(resultlocy, resultlocx).Value = Cells(11, 21).Value Then
Cells(resultlocy, resultlocx).Interior.Color = RGB(255, 255, 0)
Else
Cells(resultlocy, resultlocx).Interior.Color = RGB(255, 255, 255)
End If
Cells(resultlocy, resultlocx + 1).Value = Cells(Worksheets(“Data”).Cells(y, 1).Value, Worksheets(“Data”).Cells(y, 2).Value + 1).Value
If Cells(resultlocy, resultlocx + 1).Value = Cells(11, 22).Value Then
Cells(resultlocy, resultlocx + 1).Interior.Color = RGB(255, 255, 0)
Else
Cells(resultlocy, resultlocx + 1).Interior.Color = RGB(255, 255, 255)
End If
Cells(resultlocy, resultlocx + 2).Value = Cells(Worksheets(“Data”).Cells(y, 1).Value, Worksheets(“Data”).Cells(y, 2).Value + 2).Value
If Cells(resultlocy, resultlocx + 2).Value = Cells(11, 23).Value Then
Cells(resultlocy, resultlocx + 2).Interior.Color = RGB(255, 255, 0)
Else
Cells(resultlocy, resultlocx + 2).Interior.Color = RGB(255, 255, 255)
End If
Cells(resultlocy, resultlocx + 3).Value = Cells(Worksheets(“Data”).Cells(y, 1).Value, Worksheets(“Data”).Cells(y, 2).Value + 3).Value
If Cells(resultlocy, resultlocx + 3).Value = Cells(11, 24).Value Then
Cells(resultlocy, resultlocx + 3).Interior.Color = RGB(255, 255, 0)
Else
Cells(resultlocy, resultlocx + 3).Interior.Color = RGB(255, 255, 255)
End If
Cells(resultlocy, resultlocx + 4).Value = Cells(Worksheets(“Data”).Cells(y, 1).Value, Worksheets(“Data”).Cells(y, 2).Value + 4).Value
If Cells(resultlocy, resultlocx + 4).Value = Cells(11, 25).Value Then
Cells(resultlocy, resultlocx + 4).Interior.Color = RGB(255, 255, 0)
Else
Cells(resultlocy, resultlocx + 4).Interior.Color = RGB(255, 255, 255)
End If
Cells(resultlocy + 1, resultlocx).Value = Cells(Worksheets(“Data”).Cells(y, 1).Value + 1, Worksheets(“Data”).Cells(y, 2).Value).Value
If Cells(resultlocy + 1, resultlocx).Value = Cells(12, 21).Value Then
Cells(resultlocy + 1, resultlocx).Interior.Color = RGB(255, 255, 0)
Else
Cells(resultlocy + 1, resultlocx).Interior.Color = RGB(255, 255, 255)
End If
Cells(resultlocy + 1, resultlocx + 1).Value = Cells(Worksheets(“Data”).Cells(y, 1).Value + 1, Worksheets(“Data”).Cells(y, 2).Value + 1).Value
If Cells(resultlocy + 1, resultlocx + 1).Value = Cells(12, 22).Value Then
Cells(resultlocy + 1, resultlocx + 1).Interior.Color = RGB(255, 255, 0)
Else
Cells(resultlocy + 1, resultlocx + 1).Interior.Color = RGB(255, 255, 255)
End If
Cells(resultlocy + 1, resultlocx + 2).Value = Cells(Worksheets(“Data”).Cells(y, 1).Value + 1, Worksheets(“Data”).Cells(y, 2).Value + 2).Value
If Cells(resultlocy + 1, resultlocx + 2).Value = Cells(12, 23).Value Then
Cells(resultlocy + 1, resultlocx + 2).Interior.Color = RGB(255, 255, 0)
Else
Cells(resultlocy + 1, resultlocx + 2).Interior.Color = RGB(255, 255, 255)
End If
Cells(resultlocy + 1, resultlocx + 3).Value = Cells(Worksheets(“Data”).Cells(y, 1).Value + 1, Worksheets(“Data”).Cells(y, 2).Value + 3).Value
If Cells(resultlocy + 1, resultlocx + 3).Value = Cells(12, 24).Value Then
Cells(resultlocy + 1, resultlocx + 3).Interior.Color = RGB(255, 255, 0)
Else
Cells(resultlocy + 1, resultlocx + 3).Interior.Color = RGB(255, 255, 255)
End If
Cells(resultlocy + 1, resultlocx + 4).Value = Cells(Worksheets(“Data”).Cells(y, 1).Value + 1, Worksheets(“Data”).Cells(y, 2).Value + 4).Value
If Cells(resultlocy + 1, resultlocx + 4).Value = Cells(12, 25).Value Then
Cells(resultlocy + 1, resultlocx + 4).Interior.Color = RGB(255, 255, 0)
Else
Cells(resultlocy + 1, resultlocx + 4).Interior.Color = RGB(255, 255, 255)
End If
Cells(resultlocy + 2, resultlocx).Value = Cells(Worksheets(“Data”).Cells(y, 1).Value + 2, Worksheets(“Data”).Cells(y, 2).Value).Value
If Cells(resultlocy + 2, resultlocx).Value = Cells(13, 21).Value Then
Cells(resultlocy + 2, resultlocx).Interior.Color = RGB(255, 255, 0)
Else
Cells(resultlocy + 2, resultlocx).Interior.Color = RGB(255, 255, 255)
End If
Cells(resultlocy + 2, resultlocx + 1).Value = Cells(Worksheets(“Data”).Cells(y, 1).Value + 2, Worksheets(“Data”).Cells(y, 2).Value + 1).Value
If Cells(resultlocy + 2, resultlocx + 1).Value = Cells(13, 22).Value Then
Cells(resultlocy + 2, resultlocx + 1).Interior.Color = RGB(255, 255, 0)
Else
Cells(resultlocy + 2, resultlocx + 1).Interior.Color = RGB(255, 255, 255)
End If
Cells(resultlocy + 2, resultlocx + 2).Value = Cells(Worksheets(“Data”).Cells(y, 1).Value + 2, Worksheets(“Data”).Cells(y, 2).Value + 2).Value
If                 complete this code for 5x5 output boxes