como puedo hacer para que al seleccionar cualquier celda de la columna A me coloree ese numero en los cuadros 

 

tablaresultados (1).xlsm

Añade esta macro en la hoja actual.

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