Werte in mehere Zellen eingeben | Herbers Excel-Forum

Hallo Excelfreunde,
ich bastel mir gerade einen Anweseheitsplaner und benötige mal wieder Eure Hilfe,
ich möchte in dem Bereich F11:AJ20 Werte eingeben, die dann in den Bereich F:49:AJ58 und F:87:96
auch erscheinen sollen inclusiv der Formatierung.
Folgendes Macro:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim rc As Range
Dim lx As Long
Dim bSet As Boolean
If Intersect(Target, Range("F11:AJ20,F21:AJ38,F49:AJ76,F87:AJ114")) Is Nothing Then Exit Sub
For Each rc In Target.Cells
For lx = 2 To 32 Step 6
If rc.Value = Cells(6, lx).Value Then
rc.Interior.ColorIndex = Cells(6, lx).Interior.ColorIndex
bSet = True
End If
Next lx
If Not (bSet) Then rc.Interior.ColorIndex = 2
Next
End Sub