Flyt rækker fra 1 regneark til flere med vba

Hej,

Nedenstående VBA kode bruges til at finde bestemte værdier i kolonne A i arket "8 nov" og flytte linjerne over i separate ark navngivet efter værdien i kolonne A.

Den første del af koden flytter overskriften, den næste linjerne.

Udfordringen, som jeg gerne vil have hjælp til, er:

1.  at jeg gerne vil have formateringen fra arket "8 nov" med over i de andre ark, og jeg kan ikke få det til at virke med copy.destination.

2. hvis en af cellerne i en række er tomme, flyttes værdierne i de efterfølgende kolonner ikke med over.

For Each wks In ActiveWorkbook.Worksheets
        If wks.Name <> "8 nov" Then
            Worksheets("8 nov").Range("A1", Range("A1").End(xlToRight)).Copy Destination:=Worksheets(wks.Name).Range("A1")
           
        End If
    Next

For Each C In Range("A2", Range("A2").End(xlDown))
        arknavn = C.Value
       
        Range(C, C.End(xlToRight)).Copy Destination:=Worksheets(arknavn).Range("A65536").End(xlUp).Offset(1, 0)
   
    Next