Nicht die gesamte Zeile löschen

Folgender Code löscht immer eine komplette Zeile.

Sub Zeile_loeschen()
Dim i As Integer
i = InputBox("Zeile eingeben")
Cells(i, 1).EntireRow.ClearContents
End Sub

Nun habe ich 2 Fragen dazu.

1.) Ich möchte pro Zeile aber nur den Bereich A : J löschen.
2.) Lässt sich die Auswahl der zu löschenden Zeilen von 3 - 34
begrenzen?

Da ich schon einige Stunden gesucht und probiert habe,
wende ich mich nun an euch Experten.

Vielen Dank schon mal im voraus!

mfG Andre