Tengo una Macro y quiero cambiar "Rows(fila).Delete" por otro comando.

Tengo una Macro:

Private Sub CommandButton4_Click()
Pregunta = MsgBox("Está seguro de eliminar el registro?", vbYesNo + vbQuestion, "aaa")
If Pregunta <> vbNo Then
fila = Me.ListBox1.ListIndex + 2
'Eliminar Fila Completo
Rows(fila).Delete
End If

End Sub

Y la parte que esta en negrita quiero modificar Rows(fila).Delete

Mi problema es que cuando selecciono una celda ej.: A3 y ejecuto la macro.

La macro elimina toda la fila 3 por completo. Y yo solo quiero que desde la celda ej.: A3 hasta la celda D3 me seleccione automáticamente (A3:D3) y en ves de eliminar deje vacío la columna. ("")

Gracias desde ya por su ayuda