[gr8styl]

Γρηγόρη καλώς όρισες και από μένα.
Αν και νομίζω ότι η επικύρωση είναι ο σωστός τρόπος, μιας και δεν σε ικανοποιεί, Θα σου πρότεινα να φτιάξεις 9 κουμπιά (CommandButton1 ... CommandButton9) και να βάλεις τον παρακάτω κώδικα σε κάθε κουμπί, προσαρμόζοντας την στήλη που θέλεις να εφαρμόζεται πχ 1 για την Α, 2 για την Β κ.ο.κ, καθώς και το Range

Θανάσης

Private Sub CommandButton1_Click()
' For column B test if ActiveCell.Column = 2
    If ActiveCell.Column = 2 Then
        CommandButton1.Caption = Range("F1").Value
        ActiveCell = CommandButton1.Caption
        Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
    Else
        ActiveCell.Select
    End If
End Sub

....

Private Sub CommandButton9_Click()
' For column B test if ActiveCell.Column = 2
    If ActiveCell.Column = 2 Then
        CommandButton1.Caption = Range("H3").Value
        ActiveCell = CommandButton1.Caption
        Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
    Else
        ActiveCell.Select
    End If
End Sub