Forenkling af Makro.

Jeg har følgende spørgsmål Kan denne makrokode forenkles. Jeg har optaget den ved at indspille en makro og med musen lavet de forskellige handlinger. Den virker som den skal men jeg kunne godt tænke mig hvis den kunne forenkles.
Det den gør er følgende
Henter en text fil (Kontoudskrift) i en afstemnings skabelon Starter i A1 og filen fylder Kolonne A_E i forskellig længde alt efter hvor mange linjer der er i kontoudtoget.
MVH
Petert

    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Data\Flemming\Exel\Afstemning af boner\50501010000.txt", Destination _
        :=Range("A1"))
        .Name = "50501010000"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1252
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub