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