Unik data låst til emne i rulleliste

Hej.
Jeg har et kalenderark med en fane for hver måned. I hver fane er der en rulleliste, som indeholder vilkårlig navnedata. Er det muligt at lave en VBA som gemmer den indtastede data i kalenderen baseret på det navn, som er tastet i rullelisten? Altså således at man kan skifte mellem forskellige navne i min rulleliste, og så vil data "følge med" når man skifter?

Lige nu har jeg lavet en VBA, som nulstiller hver gang man skifter navn i rullelisten, men jeg kunne godt tænke mig, at den kunne "huske" den data man havde testet ud fra hver navn i rullelisten?

Håber det giver mening?

Min nuværende kode ser således ud:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("J4")) Is Nothing Then
        Range("B4:H4").ClearContents
        Range("B6:H6").ClearContents
        Range("B8:H8").ClearContents
        Range("B10:H10").ClearContents
        Range("B12:H12").ClearContents
        Range("B14:C14").ClearContents
    End If
End Sub

J4 er min rulleliste med navne. kolonnerne B til H er kalenderfelterne.

Pft.