VBA kode - Indsæt ny rækker og kopierer noget af indholdet fra overnstående række med

Hej.....

Jeg har lavet en oversigt over værdipapirer i Excel 2007 versionen. Arket er lavet til nogle af mine kollegaer. For at lave arket så brugervenligt som muligt, har jeg derfor lavet nedenstående VBA koder, der automatisk kopiere indholdet fra f.eks. række 16 til en ny række nedenunder.

Mit problem består i at makroen kopierer hele indholdet fra rækken ovenover. Det er meningen at den kun skal kopierer formler og formatering, så som farver, "kasser" mv.

Arket er bygget således op:

a) Følgende rækker er blanker (er brugt som mellemrum mellem kolonnerne):
  A, C, E, K, N, Q, W, Y, AA, AC, AE, AG, AH.

b) Indeholdet/værdierne i følgende kolonner skal ikke kopieres med til den nye linier:
  B, D, F, G, I, L, M, O, P, U. 

c) Formlerne i følgende kolonner skal kopieres med til den nye linie:
  H, J, R, S, T, V, X, Z, AB, AD, AF.

Jeg har lavet nedenstående VBA kode:

Sub CopytoNextRow()
With Range(Cells(ActiveCell.row, 1), Cells(ActiveCell.row, 34))
    .Copy
    .Insert Shift:=xlDown
    Application.CutCopyMode = False

   
End With

End Sub


Håber at der er en der kan hjælpe?

På forhånd tak