Тот же метод, что и в предыдущем ответе:
Sub TestRanges
Dim oRanges, v
oRanges=ThisComponent.createInstance("com.sun.star.sheet.SheetCellRanges")
For Each v In Array("C2:G5", "B7:G10", "E14:E17", "G20:G23", "G25:G28")
oRanges.addRangeAddress ThisComponent.Sheets(0).getCellRangebyName(v).getRangeAddress, False ' True, если надо объединять без пересечений
Next v
oRanges.clearContents(7)
End Sub
Нужно учитывать, что у сервиса
SheetCellRanges палитра методов гораздо беднее, чем у сервиса
SheetCellRange.