selektive Spalte löschen statt EntireRow.Delete

Dim Zeile As Long, ZeileLetzte As Long
Dim myRange     As Range
Dim strAddress  As String
With Worksheets("Tabelle1")
Set myRange = .Columns2).Find(What:=Userform1.ComboBox1.Value, _
LookIn:=xlValues, LookAt:=xlPart, After:=.Cells(Rows.Count, 2))
If Not myRange Is Nothing Then
strAddress = myRange.Row
.Rows(strAddress).EntireRow.Delete 'hier nur Spalte 2-6 löschen!!!
Application.ScreenUpdating = False
End If
End With