Bom dia!!

Não testado!!!

Private Sub AcumLts_afterupdate()
Dim ultma_celula As Long
ultma_celula = Cells(Rows.Count, "A").End(xlUp).Row 'Mude para a coluna N, caso necessário
Application.WorksheetFunction.Sum (Worksheets("acetona").Range("n3:n" & ultma_celula))
End Sub

Att

Não obtive resultado por enquanto

E vai ser difícil obter só com um ódigo de programação errado, sem maiores detalhes.

Você está usand um comando para soma, mas não está lançando o resultado dessa soma em lugar algum.

Eu suponho que vc queira atualizar algum textbox de um userform.

Se for isso, seria algo assim:

Private Sub AcumLts_afterupdate()
ultma_celula = Cells(Rows.Count, "N").End(xlUp).Row
AcumLts.value = Application.WorksheetFunction.Sum (Worksheets("acetona").Range("n3:n" & ultma_celula))
End Sub

Com uma observação feita peo Alexandre: a variável "ultma_celula" está sem valor, por isso ele incluiu um comando para dar a ela a última célula.

Se não for isso, poste o modelo da planilha, explique melhor...