O código de última linha que está demonstrado abaixo é muito simples e funcional, ele verifica a última linha preenchida na coluna A, se você quiser saber a ultima linha vazia basta no final do código colocar  +1

Sub Macro1()

   UltimaLinha = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

End Sub