langsom kode - mega langsom

Hej
Jeg håber nogen kan eller vil hjælpe
Jeg henter data fra en tekstfil
Jeg skal så fjerne en masse ektra 0'er der kommer med. Men lige den del er altså meget langsom. Det er de sidste linier i koden.
Er der nogen der kan se om det kan gøres hurtigere???

'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:HO-OpenSalesLines.txt", _
        Destination:=Range("A4"))
        '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 de første 4 tegn i kolonne C
   
    Dim MyArray As Variant
  Dim lngX As Long
  Debug.Print Now
  MyArray = Range("C4:C" & Trim(Str(ActiveSheet.Range("C65536").End(xlUp).Row)))
  For lngX = LBound(MyArray) To UBound(MyArray)
      MyArray(lngX, 1) = Right(MyArray(lngX, 1), Len(MyArray(lngX, 1)) - 4)
  Next lngX
  Range("C4:C" & Trim(Str(ActiveSheet.Range("C65536").End(xlUp).Row))) = MyArray
  Debug.Print Now
 
 
 
   
'sletter de 16 nuller
Range("D4:E4").Select
    Range(Selection, Selection.End(xlDown)).Select
  Selection.Replace What:="0000000000000000", Replacement:="", LookAt:= _
      xlPart, SearchOrder:=xlByRows, MatchCase:=False