Realizar marcación de datos en hoja excel

Como puedo realizar la marcación de los números del rango "A1 a D1" en los cuadros del lado derecho y realizar lo mismo en cada cambio de fila y colorear la celda de la columna E para saber en que numero vamos

Private Sub SpinButton1_Change()
Dim n%, valor As String ' <= variable agregada '
Application.ScreenUpdating = False
If [A1] = "0000" Then Exit Sub
valor = Format([A1], "0000") ' <= formato agregado '
For i = 1 To Sheets.Count
Sheets(i).Activate
[A1] = valor
For n = 1 To Len(valor)
BuscarÁrea n, Mid(valor, n, 1), 4, 13
BuscarÁrea n, Mid(valor, n, 1), 17, 26
Next
Next
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address Like "$A$*" Then
If Not ActiveCell = "" Then
If IsNumeric(ActiveCell) Then SpinButton1 = ActiveCell
End If
End If
End Sub
Sub BuscarÁrea(n As Integer, Número As Integer, x1 As Long, x2 As Long)
Application.ScreenUpdating = False
y = (n - 1) * 2 + 5 'empieza en col E
aTablas:
Range(Cells(x1, y), Cells(x2, y)).Interior.ColorIndex = xlNone
For x = x1 To x2
If Cells(x, y) = Número Then
Cells(x, y).Interior.Color = vbRed
'pasa a la tbla siguiente
GoTo siguenTablas
End If
Next
siguenTablas:
'sigue con otras tablas
y = y + 9
If y > 57 Then Exit Sub
GoTo aTablas
End Sub