Excel Macro excluir linha (vba)

[Jefferson TS]

Olá. Fiz a seguinte macro para excuir linha de uma tabela e manter a planilha protegida, no entanto, a tabela precisa ter pelo menos uma linha além da linha de cabeçalhos, senão a macro dá erro.

Alguém poderia me ajudar a corrigir isto impedindo, fazendo a macro exibir msgbox de erro se o usuário clicar no botão quando a tabela já estiver com apenas uma linha?

 

Sub ExcluiLinha()
Call Desprotege

Sheets("ficha_treino").Select

Range("A13").Select
Selection.End(xlDown).Select
Selection.EntireRow.Delete
Range("A13").Select
Selection.End(xlDown).Select

Call Protege
End Sub

 

[RafaVillani]

@Jefferson TSTente este código, onde estou agora não pude testar, se der erro me avise.

Sub ExcluiLinha()

Dim Tabela As ListObject
Dim UltimaLinha As Long

Set Tabela = Planilha9.ListObjects("Tabela11")
UltimaLinha = Tabela.ListRows.Count
If UltimaLinha = 1 Then
    MsgBox "Nenhum registro encontrado, impossível excluir!", vbInformation, "ERRO"
    Exit Sub
Else:
Call Desprotege
Sheets("ficha_treino").Select
Range("A13").Select Selection.End(xlDown).Select
Selection.EntireRow.Delete
Range("A13").Select
Selection.End(xlDown).Select
Call Protege
End Sub

RafaVillani

[Jefferson TS]

@RafaVillani Deu este erro:

[RafaVillani]

@Jefferson TSDê um enter nessa linha, após o Select e antes do Selection.

[Jefferson TS]

@RafaVillani Show. Faltou um end if. Obrigado.

[RafaVillani]

@Jefferson TSkkkkk....realmente me esqueci do End If, não fiz o código no Excel, fiz direto aqui no fórum, e acabei me esquecendo de fechar o If, mas, o importante é que funcionou. 

@Jefferson TSVocê marcou seu próprio post como solução....rsrsrsrs