Makro i Excel. Inläsning av textfil.

Jag har ett makro som ska läsa in en textfil i tre olika blad.

Varje rad börjar med en treställig text t.ex. "AIG", sen följer några kolumner. Sen i kolumn J finns siffror som kan vara allt från ett tecken till sju stycken.

Den treställiga texten ska börja på "C", alla andra ska slängas bort.

Makrot gör ett ny bok, sen ska den lägga in alla siffror som börjar med "4" i blad 1, siffror som börjar med "6" i blad 2 alla andra ska läggas in i blad 3.

Sub SPCS()
'
' SPCS Makro
' Makrot inspelat 2005-03-01 av Rolf Lager
' Kortkommando: Ctrl+o
'
 chosenfile = Application.GetOpenFilename("text-filer (*.txt), *.txt")
If chosenfile <> False Then
    MsgBox "Öppnar " & chosenfile
    Do
        lngIndex = InStr(chosenfile, "\")
        If lngIndex = 0 Then Exit Do
      chosenfile = Right$(chosenfile, Len(chosenfile) - lngIndex)
   Loop
Workbooks.OpenText chosenfile, Origin:=xlWindows, _
        StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, _
        1), Array(3, 1), Array(12, 1), Array(22, 1), Array(32, 1), Array(38, 1), Array(51, 1), Array _
        (62, 1), Array(74, 1), Array(112, 1), Array(147, 1), Array(164, 1), Array(172, 1), Array( _
        200, 1), Array(205, 1)), TrailingMinusNumbers:=True
    Columns("A:A").Select
    Range("A1:O6079").Sort Key1:=Range("A1"), Order1:=xlAscending, Key2:= _
        Range("J1"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, _
        MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
        DataOption2:=xlSortNormal
    Range("A1").Select
End If
    Workbooks.Add
    Sheets("Blad1").Select
    Sheets("Blad1").Name = "400"
    Range("A1").Select
    Sheets("Blad2").Select
    Sheets("Blad2").Name = "600"
    Range("A1").Select
    Sheets("Blad3").Select
    Sheets("Blad3").Name = "Övriga"
    Range("A1").Select
End Sub

Det här är koden jag provat lite grann.

Tacksam för hjälp.