Excell är inte min staksida och spec. inte vba men med lite letande och läsande fann jag två skrip som jag skulle behöva få lite hjälp hur man skriver in fler oprationer i samma skrip i stälet för att göra 9 mouler för att få dessa att funka. 

ett skript är som vanlig kopiering och det andra är kopiera med kilsta in special för att jag vill inte ha forlmen med utan bara resultatet. 
 

Från källbladet inmätning resultat skall info från cellerna A4:A100  B4:B100 C4:100 skall till rapport motsvarande dvs A4 B4 C4 
Från källbladet inmätning resutat, m4:m100 n4:n100 04:O100 skall till rapport I4 J4 K4 

Sdean skall detta från innmätning resultat till rapport med kistra in special då jag bara vill ha resultatet och inte formeln. 
I4:I100 till  rapport E4 
J4:100 till rapport F4
K4:100 till rapport G4 

Jag har testat att kopiera in fler poster men får det inte att lira så något gör jag fel 

Här är skripten

Sub KopieraDataMellanBlad()

    ' Deklarera variabler för kalkylbladen för tydlighetens skull

    Dim kallaBlad As Worksheet

    Dim destinationBlad As Worksheet    

    ' Sätt variablerna till de specifika bladen

    ' Ändra "Blad1" och "Blad2" till de faktiska namnen på dina blad om de skiljer sig

    Set kallaBlad = ThisWorkbook.Sheets("Inmätning-Resultat")     * här har jag ändrat till mitt blad

    Set destinationBlad = ThisWorkbook.Sheets("Rapport utskrift")  * här har jag ändrat till mitt blad    

    ' Kopiera området A4:A100 från källbladet och klistra in det i A4 på destinationsbladet * Kan man skriva in fler här under?
ex mpel  Kopiera området B4:B100 från källbladet och klistra in det i B4 på destinationsbladeer 

    kallaBlad.Range("A4:A100").Copy Destination:=destinationBlad.Range("A4") * då borde man göra lika här? 

    ex  kallaBlad.Range("B4:B100").Copy Destination:=destinationBlad.Range("B4")

    ' Valfritt: Rensa urklippsläget (de animerade streckade linjerna runt det kopierade området)

    Application.CutCopyMode = False    

    ' Meddelande när operationen är klar

    MsgBox "Data från A4:A100 på Blad1 har kopierats till Rapport utskrift med start i A4."

End Sub

det andra skriptet ser ut så här 

Sub KopieraOchKlistraInSpecial()

    ' Deklarera variabler för enkelhetens skull

    Dim kallaBlad As Worksheet

    Dim malBlad As Worksheet

    Dim kallaOmrade As Range

    Dim malCell As Range    

    ' Sätt variablerna till de specifika bladen i din arbetsbok

    ' Ändra "Blad1" och "Blad2" till namnen på dina faktiska blad

    Set kallaBlad = ThisWorkbook.Sheets("Inmätning-Resultat")

    Set malBlad = ThisWorkbook.Sheets("Rapport utskrift")    

    ' Definiera källområdet (t.ex. A1 till D10)

    Set kallaOmrade = kallaBlad.Range("I4:I100")  skulle man kunna skriva in fler här under ??

ex  Set kallaOmrade = kallaBlad.Range("J4:IJ100")
 ex Set kallaOmrade = kallaBlad.Range("K4:K100")    

    ' Definiera målcellen där inklistringen ska börja (t.ex. A1)

    Set malCell = malBlad.Range("E4")

ex   Set malCell = malBlad.Range("F4")

ex   Set malCell = malBlad.Range("G4")

    ' Kopiera källområdet

    kallaOmrade.Copy

    ' Klistra in special (endast värden) i målcellen

    ' xlPasteValues klistrar in bara värdena

    malCell.PasteSpecial Paste:=xlPasteValues

    ' Rensa klippbordet (valfritt men rekommenderat)

    Application.CutCopyMode = False

    ' Bekräftelsemeddelande

    MsgBox "Data har kopierats som endast värden från " & kallaBlad.Name & " till " & malBlad.Name & ".", vbInformation

End Sub