VBA: Pegar a última linha preenchida

Muitas vezes precisamos escrever em uma planilha, linha a linha, sou seja, quando for colocar um novo conteúdo na planilha, precisamos que o mesmo ocorra uma linha após a última linha preenchida.

Para isso, precisamos saber qual  a última linha?

Uso a função fUltimaLinha para isso. Sintaxe:

wsPlanilha  = Planilha em que se deseja obter a última linha
iColuna       = Número da coluna que será avaliada

Retorna um valor LONG. ( mais de 32 mil linhas ).

Exemplo:

DIM iUltimaLinha AS LONG

iUltimaLinha = fUltimaLinha( Sheets("PlanilhaDestino"), 1 ) + 1

sheets("PlanilhaDestino").Cells( iUltimaLinha, 1) = "Teste!"
sheets("PlanilhaDestino").Cells( iUltimaLinha, 2) = "Novo Teste!"


Function fUltimaLinha(wsPlanilha As Worksheet, iColuna As Integer) As Long
   Dim iLinha As Long
 
   iLinha = wsPlanilha.Cells(Rows.Count(), iColuna).END(xlUp).Row
   fUltimaLinha = iLinha
End Function