Modificar rango en hoja excel

Como puedo modificar este código, para que marque aquellos números que están entre las columnas A a la columna D en los cuadros del lado derecho como se muestra en la imagen .

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