Bereich löschen 5 Zeilen hoch, 3 Spalten rechts

Private Sub Delete_Sub_Supplier_Click()
Dim tier As String
Dim col As Long
Dim i As Long
Dim rng As Range
Dim Adr, SpaBu As String
Dim letzteZeile As Long
Dim ws As Worksheet
Dim ws1 As Worksheet
Set ws = Worksheets("Sub-Supplier-Tree")
Set ws1 = Worksheets("Hilfstabelle")
Dim SpaBuVor As String
Dim Adr2 As String
On Error Resume Next
tier = ComboBox1.Value
Set rng = ActiveSheet.Rows("2:2").Find(tier)
Adr = rng.Address
col = rng.Column
'Ermittlen des Spaltenbuchstabens
SpaBu = Mid(Adr, 2, InStr(2, Adr, "$") - 2)
letzteZeile = ws.Range(SpaBu & "1048576").End(xlUp).Row
-_> HIER WIRD BISHER NUR EINE ZELLE GELÖSCHT
ws.Cells(letzteZeile, col).ClearContents
End Sub