löschen von Wert 0 in allen Zellen

Hallo,
ich habe ein in einer Tabelle importierte Daten, bei denen sehr viele Zellen den Wert 0 haben. Diese würde ich gerne innerhalb des Importes löschen/leeren. Aktuell verwende ich dafür folgenden code:

For Each rng In Range("G2:K20000")
If rng.Value = "0" Then rng.ClearContents
Next

Private Sub cmd_import_Click()
Dim rng As Range
Dim pfad As String
Dim pfadlaenge As Integer
Dim datei As String
Dim dateilaenge As Integer
Dim blatt As String
Dim i As Double
'MsgBox ("Rohdaten " & vbCrLf & "in das Tool importiert!")
Application.ScreenUpdating = False
blatt = "Tabelle1"
'Application.FileDialog(msoFileDialogOpen).Show
'pfad = Application.FileDialog(msoFileDialogOpen)
'Application.FileDialog(msoFileDialogFilePicker).Show
'datei = Application.FileDialog(msoFileDialogFilePicker).
pfad = Application.GetOpenFilename("Excel (*.xls), *.xls")
pfadlaenge = Len(pfad)
datei = Right(pfad, InStr(1, StrReverse(pfad), "\") - 1)
dateilaenge = Len(datei)
pfad = Left(pfad, pfadlaenge - dateilaenge)
ActiveSheet.Range("A2:K20000").Select
Selection.Delete
Call Hole_Daten("A2:A20000", "='" & pfad & "[" & datei & "]" & blatt & "'!A2:A20000")
Call Hole_Daten("B2:B20000", "='" & pfad & "[" & datei & "]" & blatt & "'!B2:B20000")
Call Hole_Daten("C2:C20000", "='" & pfad & "[" & datei & "]" & blatt & "'!C2:C20000")
Call Hole_Daten("D2:D20000", "='" & pfad & "[" & datei & "]" & blatt & "'!D2:D20000")
Call Hole_Daten("E2:E20000", "='" & pfad & "[" & datei & "]" & blatt & "'!E2:E20000")
Call Hole_Daten("F2:F20000", "='" & pfad & "[" & datei & "]" & blatt & "'!F2:F20000")
Call Hole_Daten("G2:G20000", "='" & pfad & "[" & datei & "]" & blatt & "'!G2:G20000")
Call Hole_Daten("H2:H20000", "='" & pfad & "[" & datei & "]" & blatt & "'!H2:H20000")
Call Hole_Daten("I2:I20000", "='" & pfad & "[" & datei & "]" & blatt & "'!I2:I20000")
Call Hole_Daten("J2:J20000", "='" & pfad & "[" & datei & "]" & blatt & "'!J2:J20000")
Call Hole_Daten("K2:K20000", "='" & pfad & "[" & datei & "]" & blatt & "'!K2:K20000")
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) = 0 Then
Rows("" & i & ":1048576").Delete
Exit For
End If
Next
On Error Resume Next
For Each rng In Range("G2:K20000")
If rng.Value = "0" Then rng.ClearContents
Next
End Sub