[VBA] – Diferentes maneiras de encontrar a última linha de uma tabela automaticamente

Manipular tabelas utilizando o VBA no Excel, sem sobra de dúvidas é uma tarefa desafiadora, portanto, localizar a ultima linha com dados em uma tabela automaticamente é imprescindível para o sucesso de processo. Mas em qual situação isso é importante? Geralmente temos localizar a ultima linha quando queremos inserir um novo registro na tabela.  Portanto, seguem algumas maneiras que utlizo para localizar a última linha.

Sub EncontrarUltimaLinha()

Dim sht As Worksheet
Dim UltimaLinha As Long

Set sht = ThisWorkbook.Worksheets(Plan1.Name)

'Opçao 1 - Utlizando o 'Ctrl + Shift + End do Teclado
UltimaLinha = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row

'Opçao 2 - Utilizando o método UsedRange
UltimaLinha = sht.UsedRange.Rows.Count

'Opçao 3 - Utilizando o método ListObjects em um tntervalo configurado como tabela
UltimaLinha = sht.ListObjects("Tabela1").Range.Rows.Count

'Opçao 4 - Encontrando a ultima linha utlizando o intervalo configurado com Gerenciamento de Nomes
UltimaLinha = sht.Range("MeuIntervalo").Rows.Count

'Opçao 5 - - Utlizando o 'Ctrl + Shift + Down do Teclado
UltimaLinha = sht.Range("A1").CurrentRegion.Rows.Count

End Sub

Pratiquem!