langsom kode - mega langsom

Det er nederste del af koden der er alt for langsom

Her skal de fire første tegn i kolonne A fjernes.  Nogen der kan og vil hjælpe. Kan det gøres hurtigere.

Dim RW As Long, I As Long


'importerer tekstfilen og sætter den ind med start i celle A2 og starter i række 2 i tekstfilen
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;H:\Pipeline\HO-Inventsum.txt", _
        Destination:=Range("A2"))
        'Destination:=Selection)
        .Name = "HO-OpenSalesLines"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = xlWindows
        .TextFileStartRow = 2
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1)
        .Refresh BackgroundQuery:=False
    End With
ActiveSheet.QueryTables.Item(1).Refresh BackgroundQuery:=False

'sletter fire første tegn i kolonne A
RW = ActiveSheet.Range("A65536").End(xlUp).Row
For I = 2 To RW
Cells(I, "A") = Right(Cells(I, "A"), Len(Cells(I, "A")) - 4)
Next

End sub