Borrar contenido celda sin borrar fórmula

Tengo una tabla dinámica con segmentación de datos, y los datos que se van filtrando van a una tabla donde aparece el resultado final. He intentado hacer una macro para que, una vez hecho el filtro y copiados los resultados, mediante un botón, se vacíen el contenido de las celdas (en la columna B) pero sin que desaparezcan las fórmulas que traen los resultados, y no consigo hacerlo funcionar.

Sub BorrarFiltro()
    Dim rConstants As Range
    Set rConstants = Range("B2:B29").SpecialCells(xlCellTypeConstants)
    rConstants.ClearContents
End Sub

Me da un error 1004 "No se encontraron celdas".

¿Podéis ayudarme con esto?