VBA - problemer med at kopier og flytte data

Hej har en del af en kode, som jeg ikke helt kan få til at virke.

Har oprettet nogle unikke poster i kolonne Q i arket "Aktivitetsændringer 4 kvartaler", som jeg har brugt til at oprettet nye ark med navnene fra kolonne Q.

Før jeg begynder at flytte data til de nye ark vil jeg gerne have en overskrift i den første celle A1 i hvert nyt regne ark med navnene fra de unikke poster i kolonne Q

Har prøvet med nedenstående kode, men den virker ikke helt:-(

Hvis muligt vil jeg også gerne kunne skrive en fritekst i koden, som ligger sig i celle A2 på de respektive ark.

For Each C In Worksheets("Aktivitetsændringer 4 kvartaler").Range("Q2", Range("Q2").End(xlDown))
       
        If C.Value = wks.Name And wks.Name <> "Aktivitetsændringer 4 kvartaler" Then

        C.Value.Copy Destination:=Worksheets(wks.Name).Range("A1")
    End If
    Next

Kan sagtes sende hele koden, vis det skal ses i en helhed.