Hjælp til macro i Excel

Hej eksperter,

Jeg har et spørgsmål ang. makoer i Excel, som jeg meget gerne vil have jeres hjælp til:

I mit arbejde trækker jeg tit et rådata ark ud af et system med rigtig mange kolonner og rækker. Jeg skal dog for det meste kun bruge 6 af kollonnerne, som jeg kopierer og sætter over i et andet ark. De tre første kolonner kommer altid i samme rækkefølge (kolonne B, L, og N), og selvom de ikke altid hedder det samme er det altid værdierne i disse tre kollonner jeg bruger. Desuden bruger jeg tre andre kolonner,og disse ligger typisk i AA, AB og AC - men ikke altid! Det kan ske at de rykker sig fra gang til gang.

Jeg har prøvet at indspille en makro, men problemet er at mens de første 3 kolonner altid kommer korrekt over i det andet ark, kommer de tre sidste af og til ikke med rigtigt over (hvis nu kollonnerne jeg skal bruge ikke ligger i AA, AB og AC, men lidt længere til højre i arket. Derfor skal jeg vel bruge kolonnenavnene fremfor numrene for de tre kolonner? Men jeg ved ikke hvordan man gør det, da jeg ikke har så meget erfaring med VBA programmering.

Jeg håber ikke det blev alt for kringlet...

Er der nogen der kan hjælpe?

Her er koden på den makro jeg har indspillet:

Sub Afrapporter()
'
' Afrapporter Makro
'
' Genvejstast:Ctrl+j
'
    Sheets("Rådata").Select
    Columns("B:B").Select
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    Range("B:B,L:L,N:N").Select
    Range("N1").Activate
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 20
    ActiveWindow.ScrollColumn = 21
    ActiveWindow.ScrollColumn = 22
    ActiveWindow.ScrollColumn = 23
    ActiveWindow.ScrollColumn = 24
    Range("B:B,L:L,N:N,AA:AC").Select
    Range("AA1").Activate
    Selection.Copy
    Sheets("Calculator").Select
    Columns("A:F").Select
    ActiveSheet.Paste
End Sub


På forhånd tak.