Ciao,
non sono sicuro di aver capito bene, comunque ci provo:

codice:
Private Sub CommandButton1_Click()

' Imposta il colore della cella attiva a bianco
ActiveCell.Interior.Color = RGB(255, 255, 255)

' Imposta il colore della cella sotto quella attiva a giallo
Cells(ActiveCell.Row + 1, ActiveCell.Column).Interior.Color = RGB(255, 255, 0)

' Attiva la cella sotto a quella attualmente attiva
Cells(ActiveCell.Row + 1, ActiveCell.Column).Select

' Imposta la formula della cella 1,3 (C1) concatenando la stringa "A1" al nome della cella attiva
Cells(1, 3).Formula = "= A1+" & ActiveCell.Address

End Sub

probabilmente non è esattamente quello che volevi ed inoltre è un po' grezzo perché, per esempio, quando imposta il colore bianco alla cella attiva ne cancella il bordo però può servire a cominciare a circoscrivere meglio il problema e a darti qualche spunto sulla sintassi di vba.

Facci sapere

Ciao