Macro busque un valor en columna y borre desde ahí las columnas hasta llegar a una vacía

Te mando mi solución y sigue mi ejemplo: Voy a suponer que tienes todos los datos apilados en la columna A desde A1 hacia abajo. Posiciónate en la celda A1 y ejecuta esta macro:

Sub prueba()
'Por Luismondelo
Range("a65000").End(xlUp).Offset(1, 0).Value = "final"
Do While ActiveCell.Value <> "final"
If ActiveCell.Value = "volumen" Then
primera = ActiveCell.Address
ElseIf ActiveCell.Value = "costo" And primera <> "" Then
ultima = ActiveCell.Offset(-1, 0).Address
End If
If primera <> "" And ultima <> "" Then
Range(primera & ":" & ultima).Delete
primera = ""
ultima = ""
GoTo salto
End If
ActiveCell.Offset(1, 0).Select
If primera <> "" And ActiveCell.Value = "final" Then
Range(primera & ":" & ActiveCell.Address).Delete
primera = ""
ultima = ""
Exit Sub
End If
salto:
Loop
End Sub

recuerda finalizar y puntuar

Hola, antes que nada quiero agradecer tu tiempoy tu interes, y bueno me gustaría comentar que tu formula borra las columnas, si borra las columnas que dicen "Volumen"pero lo que yo necesito es que borre las filas como había mencionado en la pregunta inicial. es decir que primero busque la palabra "Volumen" y que desde esa fila (si, incluyendo la misma fila donde aparece la palabra volumen borre completamente toda fila desde ese punto y hasta encontrarse con una fila en blanco, ¿esto para que? el motivo principal es que me deje solo y unicamente las tablas que tengan contenidos que tengan el titulo de "costos", por que en las tablas de "volumen" esas tablas tiene datos de piezas, y no datos financieros, asi que borrando esas tablas yo podre trabajar solamente con sumas de dinero, te muestro un ejemplo espero puedas apoyarme, la idea principal ya la tienes espero que solo sea nesesario alguna pequela correccion a tu formula. slds y gracias.

antes

Volumen
xxx xxx xxx xxx
xxx xxx xxx xxx

Costo
xxx xxx xxx xxx
xxx xxx xxx xxx

Volumen
xxx xxx xxx xxx
xxx xxx xxx xxx

Costo
xxx xxx xxx xxx
xxx xxx xxx xxx

.......

y lo que necesito que quede después;

Costo
xxx xxx xxx xxx
xxx xxx xxx xxx

Costo
xxx xxx xxx xxx
xxx xxx xxx xxx

........

Te mando otra propuesta: sigo con mi ejemplo en el que los datos están apilados en la columna A desde A1 hacia abajo.

Posiciónate en la celda A1 y ejecuta esta macro:

Sub prueba2()
'Por Luismondelo
Range("a65000").End(xlUp).Offset(1, 0).Value = "final"
Do While ActiveCell.Value <> "final"
If ActiveCell.Value = "volumen" Then
Range(ActiveCell, ActiveCell.End(xlDown).Offset(1, 0)).Delete
End If
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.ClearContents
End Sub