Kopiering af data fra .csv fil til Excel tabel

Hej Alle

Jeg er forholdsvis ny, når det drejer sig om at kode Excel makroer i VBA, men har dog lidt kodningserfaring fra tidligere.

Jeg sidder med et konkret problem, hvor jeg har behov for at kopierer data fra en CSV fil (der er eksporteret fra en SCCM web rapport, til en tabel i regneark.

Jeg skal kopiere 5 kolonner fra CSV filen, ind i de første 5 rækker i den eksisterende tabel.

Jeg benytter RANGE.COPY, og vælger kildedata som Range("A:E"), og vil så gerne placerer det i den anden række i tabellen (lige under overskriften, Range("A2")), men når jeg forsøger at køre makroen for jeg en fejl:

Run-time error '1004': Du kan ikke indsætte dette her, fordi Kopiér-området og indsætningsområdet ikke har samme størrelse.

Marker én celle i indsætningsområdet eller et område med samme størrelse, og prøv at sætte ind igen."

Jeg mener jo faktisk at jeg forsøger at sætte det ind i én celle (A2), men det virker bare ikke.. Er det overhoved muligt at benytte Range.Copy på denne måde, eller kan jeg forsøge at løse det på en anden måde? Fx med Selection.PasteSpecial?

Håber at der er en af jer der kan hjælpe mig

Herunder ses VBA koden i makroen, som jeg forsøger at afvikle:

-------CODE BEGIN------

Sub Copy_export_data()

'

' Definer workbooks, worksheets og ranges som variabler

'  Definer workbooks

    Dim wb_source

    Dim wb_dist

'   

'  Definer worksheets

    Dim ws_source

    Dim ws_dist

'  

'  Definer ranges

    Dim rng_source As Range

    Dim rng_dist As Range

'  

' Tildel værdier til definderede variabler

'  Tildel værdier til workbooks

    Set wb_source = Application.Workbooks("Computers with a specific product - Filter.csv")

    Set wb_dist = Application.Workbooks("Brugere med softwareprodukt1.xlsm")

'  

'  Tildel værdier til worksheets

    Set ws_source = wb_source.Worksheets("Computers with a specific produ")

    Set ws_dist = wb_dist.Worksheets("Licensoversigt")

'  

'  Tildel værdier til ranges

    Set rng_source = ws_source.Range("A:E")

    Set rng_dist = ws_dist.Range("A2")

'  

' Kopier range fra det ene regneark til det andet

    rng_source.Copy rng_dist

'

End Sub

------CODE END------

Her kan I finde filerne der benyttes i dette eksempel:

Source file - Computers with a specific product - Filter.csv

Distination file - Brugere med softwareprodukt1.xlsm

Makroen skulle gerne ligge i Brugere med softwareprodukt1.xlsm