Excel - Usar un mismo control de número para sumar o restar en muchas celdas y no solo en una

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim Tabla(10) As Integer, a As Byte

    If Target.Column = 1 And Target.Row <= 10 Then

        For a = 1 To 10

            Tabla(a) = Cells(a, "A")

        Next

        ActiveSheet.Shapes.Range(Array("Spinner 2")).Select

        With Selection

            .Min = 0

            .Max = 200

            .SmallChange = 1

            .LinkedCell = Target.Address

            .Display3DShading = True

        End With

        Application.EnableEvents = False

        Range(Target.Address).Select

        For a = 1 To 10

            Cells(a, "A") = Tabla(a)

        Next

        Application.EnableEvents = True

    End If

End Sub