macro til import af data

Prøv med Data > Tekst til Kolonner

der har jeg da ikke mulighed for at importere fra en txt fil?

jeg har droppet ideen, og bruger bare cut and past, det virker hver gang

Hvis du kun skal gøre det én gang, så behøver du ikke lave en makro:
Åbn blot filen i Filer/Åbn, så bliver du guidet igennem indlæsningen.
Ellers bruger du:
    Workbooks.OpenText Filename:= _
        "C:\test.txt", Origin:=xlMSDOS, _
        StartRow:=1, DataType:=xlFixedWidth
som åbner filen  "C:\test.txt" i et nyt ark.
Brug ActiveWorkbook til at referere til det nye ark, så du evt. kan kopiere data over i dit regneark.