Use o seguinte comendo:

' LOCALIZA A ÚLTIMA LINHA PREENCHIDA VERIFICANDO DE BAIXO PARA CIMA

UltimaLinha = Sheets("nome_planilha").Cells(999999, 1).End(xlUp).Row

999999 -> NÚMERO DA LINHA QUE VAI COMEÇAR A VERIFICAR, PODE SER MENOR ESSE NÚMERO

1 -> É A COLUNA "A"

Ou

' LOCALIZA A ÚLTIMA LINHA PREENCHIDA VERIFICANDO DE CIMA PARA BAIXA, LEMBRANDO QUE SE HOUVER UMA CÉLULA EM BRANCO NO MEIO VAI PARAR NELA.

UltimaLinha = Application.WorksheetFunction.CountA(Sheets("nome_planilha").Columns(1))

Columns(1) -> É A COLUNA "A"

GRAVAR "FIM"

Sheets("nome_planilha").Cells(UltimaLinha + 1, 1) = "FIM"