MACRO OpenOffice borra datos y no el formato

Utilizo la siguiente macro para borrar datos:
Sub BorrarCeldas1()
Dim oDoc As Object
Dim oRango101 As Object

'Este documento
oDoc = ThisComponent
'Hoja por nombre rango por nombre
oRango101 = oDoc.getSheets.getByName("D01").getCellRangeByName("D5:E1244")
'Borramos todos los datos en cada rango
ORango101. ClearContents(1023)
End Sub
Funciona bien, pero las celdas a borrar están pintadas con fondo amarillo, cuando se ejecuta la macro, borra el dato y el formato, es decir el fondo amarillo.
¿Qué sentencia habría que poner para borrar el dato y no el formato?, utilizo varias hojas y varios rangos.