Guru do Excel e Power BI

Bom dia galera.
O título já diz minha necessidade. No anexo explico melhor.

Pra apagar a célula e puxar as debaixo para cima, use esse código:

Sub Deletar1()
ActiveCell.Delete xlUp
End Sub

Para apagar a linha inteira, esse:

Código: Selecionar todos

Sub Deletar2()
Rows(ActiveCell.Row & ":" & ActiveCell.Row).Delete xlUp
End Sub

Funcionou, mas a ideia era não deletar a linha, somente apagar seu conteúdo.
Tentei: Rows(ActiveCell.Row & ":" & ActiveCell.Row).Clear xlUp
Mas dá erro.

Selecione qualquer célula da linha que deseja limpar e rode o código.

Código: Selecionar todos

Sub ExcluiInsereLinha()
 ActiveCell.EntireRow.Delete
 Rows(29).Insert
End Sub

Nossa, mais simples que imaginava.
Ficou show de bola.

Obrigado osvaldomp.

Guru do Excel e Power BI

Apagar conteúdo de uma linha e subir linhas abaixo

Apagar conteúdo de uma linha e subir linhas abaixo

Apagar conteúdo de uma linha e subir linhas abaixo

Re: Apagar conteúdo de uma linha e subir linhas abaixo

Re: Apagar conteúdo de uma linha e subir linhas abaixo

Apagar conteúdo de uma linha e subir linhas abaixo