Excluir linha através de botão

[WalterFilho]

Como faço um botão de pressão para excluir uma determinada linha de outra planilha?
Já criei dez botões numa mesma planilha e gravei uma macro para excluir a linha, mas sempre a mesma linha é deletada; quero escolher qual linha cada botão vai excluir.
Estou criando formulários e as informações são registradas em duas planilhas. Preciso colocar um botão de excluir uma linha numa das planilhas e apagar os dados das duas planilhas simultaneamente, excluindo as linhas.

[schiavinatto]

Ola @WalterFilho, seja bem vindo ao Grupo.

Terá de criar quantas macros forem necessárias para cada botão, ou única deletando sempre a linha ativa.

Anexe um exemplo do arquivo, e detalhes das alterações, use editar sua pergunta e com o ícone clipe anexe o arquivo.

---

ATENÇÂO:: Para dar mais detalhes a sua pergunta, use na pergunta ou abaixo. Não use Adicionar resposta para comentário. Grato.

[Conras]

@WalterFilho, seja bem vindo

Segue código para excluir linha correspondente informada

    Sub DeletaLinha	
	Dim oDOc as Object, oPlan as Object
	Dim Linha as Long
	Dim l as Long
	
	oDoc = ThisCOmponent
	rem aqui você define qual o nome da aba
	oPlan = oDoc.Sheets.getByName("Planilha1")
	rem aqui você informa o número da linha que deseja excluir, lembrando que para programação, linha 1 = 0
	Linha = InputBox ("Informe o número da linha que deseja apagar")
	l = Linha - 1
	rem aqui é o comando para excluir a linha informada no imputbox
	oPlan.rows.removeByIndex(l, 1)
End Sub

[schiavinatto]

Para a linha da célula ativa:

Sub DeletarLinhaAtiva
CreateUnoService("com.sun.star.frame.DispatchHelper") _
.executeDispatch(ThisComponent.CurrentController.Frame, ".uno:DeleteRows", "", 0, Array())
End Sub