Selección y eleiminacion de datos de combox a filas y columnas especificas

Tengo este código el cual es de un formulario y funciona bien

'Cerrar formulario
Private Sub CommandButton2_Click()
Unload Me
End Sub
'
'Abrir el formulario para modificar
Private Sub CommandButton3_Click()
If Me.ListBox1.ListIndex < 0 Then
MsgBox "No se ha elegido ningún registro", vbExclamation, "INFO"
Else
Modificar.Show
End If
End Sub
'
'Eliminar el registro
Private Sub CommandButton4_Click()
Pregunta = MsgBox("Está seguro de eliminar el registro?", vbYesNo + vbQuestion, "INFO")
If Pregunta <> vbNo Then
Fila = Me.ListBox1.ListIndex + 2
Rows(Fila).ClearContents
Application.ScreenUpdating = True
End If
End Sub
'
'Activar la celda del registro elegido
Private Sub ListBox1_Click()
Fila = Me.ListBox1.ListIndex + 2
For i = 1 To 4
Cells(Fila, 1).Activate
Next i
End Sub
'Dar formato al ListBox y traer datos de la tabla
Private Sub UserForm_Initialize()
With ListBox1
.ColumnCount = 4
.ColumnWidths = "60 pt;60 pt;70 pt"
.ColumnHeads = True
End With
ListBox1.RowSource = "Tabla1"
End Sub

Aquí en esta parte no quiero que elimine toda una fila

Rows(Fila). ClearContents

Quiero que elimine la fila pero con un rango especifico

For i = 1 To 4
Cells(Fila, 1). Activate

Aqui entiendo que se posiciona en la celda A2 a D4... (casi no leo muy bien los codigos aun)

Lo que quiero es que si quiero que mi lisbox tenga una tabla de A2:D100. Al momento de eliminar este solo elimine la fila seleccionada pero con rango limite osea que no todo lo que esta en la fila seleccionada se borre..