@Claudiomuller, tenho esta macro ligada a um Menu
Sub Menu_InserirLinhaFormatada
Executar "GoUp"
Executar "SelectRown"
Executar "Copy"
Executar "GoDown"
rem cola Fórmulas, Anotações, Formatos e Objetos -------------------------
dim args11(5) as new com.sun.star.beans.PropertyValue
args11(0).Name = "Flags" : args11(0).Value = "FNT"
args11(1).Name = "FormulaCommand" : args11(1).Value = 0
args11(2).Name = "SkipEmptyCells" : args11(2).Value = false
args11(3).Name = "Transpose" : args11(3).Value = false
args11(4).Name = "AsLink" : args11(4).Value = false
args11(5).Name = "MoveMode" : args11(5).Value = 4
CreateUnoService("com.sun.star.frame.DispatchHelper") _
.executeDispatch(ThisComponent.CurrentController.Frame, ".uno:InsertContents", "", 0, args11())
rem posicionar na primeira coluna da linha inserida ----------------------
Executar "GoRight"
Executar "GoLeft"
End Sub
Sub Executar ( oQue$ )
CreateUnoService("com.sun.star.frame.DispatchHelper") _
.executeDispatch(ThisComponent.CurrentController.Frame, ".uno:" & oQue & "", "", 0, Array())
End Sub
Se na planilha a tabela é única no sentido horizontal ( não há outra(s) ao lado )
Funciona da seguinte maneira, selecione uma célula na linha abaixo da tabela (1) onde vai digitar, e acione a macro (2).
O que ele faz: Ela copia toda a linha logo acima e cola na linha abaixo só Formula, Anotação e Formato.
Segue arquivo exemplo com Menu Macros
ATENÇÂO:: Para dar mais detalhes a sua pergunta, use na pergunta ou abaixo. Não use Adicionar resposta para comentário. Grato.
Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha a esquerda da resposta, para finalizar a pergunta.