Experimente.

Sub Teste()
 Dim k As Long
 k = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row
 Rows(k) = ""
End Sub

Olá Osvaldomp

Obrigado pela resposta, mas não deu certo.
Olha isso:

Olha isso:

Amigo, disponibilize o seu arquivo Excel (print não serve) com o código instalado e com o botão.

sugestão - para responder clique em "Responder", que está abaixo da última postagem, só clique em "Citar" se necessário.

Olá Osvaldomp
Segue o arquivo com o código:

Hummm ... o problema é consequência da excessiva quantidade de caracteres do nome da figura que você inseriu.

O máximo que a função permite é de 30 caracteres e o nome da sua figura tem 34.

Diminua o nome da figura para <= a 30 caracteres e voilá

Como assim? A figura está com nome de Teste? Não entendi? De exemplo por favor

A figura está com nome de Teste?

Não, "Teste" é o texto que você colocou na figura, nada tem a ver com seu nome.

Faça isto:
1. mantenha Ctrl pressionada e clique sobre a figura para selecioná-la
2. na Caixa de nome você poderá ver o nome da figura (essa caixa está logo acima da letra que identifica a coluna 'A')
3. clique naquela caixa para editar o nome da figura (digite um novo nome ou reduza o atual para no máximo 30 caracteres)

Deu certo Osvaldomp!

Minha barra de fórmulas estava oculta.

Muito obrigado!