Como eliminar registros de una hoja de excel

Quisiera que me ayudaran a resolver un problema tengo una tabla en excel con los siguientes campos: Fruta, Precio, Cosecha, vendedor, comprador.

esta tabla siempre se esta alimentando y necesito eliminar lo que yo ya había puesto de acuerdo a los campos fruta, precio, vendedor, comprador. Pues la cosecha y el precio pueden variar.

lo estoy haciendo en este momento de la siguiente forma:

ActiveSheet.Range("$B$4:$j$10000").AutoFilter Field:=1, Criteria1:=Range("E2")
ActiveSheet.Range("$B$4:$J$10000").AutoFilter Field:=8, Criteria1:=Range("F2")
ActiveSheet.Range("$B$4:$J$10000").AutoFilter Field:=5, Criteria1:=Range("G2")

On Error Resume Next
Range(Range("B5").Offset(1, 0), Cells(ultima_fila, 10)).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
On Error GoTo 0
Selection.AutoFilter

Como les muestro lo que hago es seleccionar filtro de acuerdo a ciertos rangos que tienen la información base, y de acuerdo a ello selecciona las celdas visibles y elimina las filas, sin embargo en algunas ocasiones (No Siempre) selecciona toda la hoja y elimina la información. Necesito que por favor me ayuden a generar otra de hacerlo o perfeccionar este método. Gracias.

Saludos

Leonardo Valencia