Este fórum está sendo desativado

[SMuralha]

Boa Tarde,
Na Planilha Anexo, Necessito de Um Código (a Ser Vinculado ao Botão “Deletar Dados Anual”) de tal forma que ao clicar no respectivo botão, Sejam Excluídos todos os dados a PARTIR da célula “A8” (idem para células: “B8”, “C8”, “D8” , “E8” , “F8”, “G8”), até onde houver o último registro na coluna “H” (no exemplo anexo são 154, porém podem ter mais dados) também respeitando o limite inicial a PARTIR de “H8”.
IMPORTANTE: Antes de executar a rotina de exclusão de dados, deve-se fazer a pergunta de confirmação: "Deseja realmente Excluir os Dados?"
Desde já Agradeço

[mucascosta]

Código: Selecionar todos

Sub Deletar()
Dim x As Integer
    Range("A8:G" & Planilha1.Cells(Rows.Count, 8).End(xlUp).Row).Select
x = MsgBox("VOCÊ QUER MESMO DELETAR?", vbYesNo + vbQuestion, Title:="© Muca Sistemas - 2020")
If x = vbYes Then
    Range("A8:G" & Planilha1.Cells(Rows.Count, 8).End(xlUp).Row).ClearContents
Else
Exit Sub
End If
End Sub

[SMuralha]

Prezado mucascosta 09 Set 2020 às 15:52
Obrigado Por Contribuir Com a Solução!
Então...
Não Funcionou, Deu o Seguinte Bug: 'Erro em tempo de execução '424'- Objeto é Obrigatório.
Se For Possível Peço Avaliar
Grato

[mucascosta]

Aqui funcionou. Veja o anexo.

[SMuralha]

Bom Dia Prezado mucascosta 09 Set 2020 às 17:13.
Primeiramente muito obrigado pela ajuda e paciência.
Funcionou Perfeitamente!
Grato!