cells, ranges und rechnen damit

ich hab ein problemchen.

If Target = Range("B9") Then
Sheets("SC-Cockpit").Select
a = ActiveSheet.Cells(9, 1).Formula
Sheets("Monatschart").Select
ActiveSheet.Cells(5, 1).Formula = a
Else
End If

Dieser Code funzt, aber ich möchte ihn automatisieren.
Ausser B9, soll auch B11, B13,... von mir aus auch alle B:B ebenfalls sensitiv sein. Der zu übertragene Wert steht immer in derselben Zeile ein Feld weiter links. Das Ziel-Feld bleibt immer gleich!

Kennt jemand einen Trick?

Gruss
Diedrix