Não entendi, A que somas se refere?? Se essa célula for "letras" o que fazer??
a rotina apenas copia a célula J (ultima com dados) para a célula T4, aqui não há problema de numero ou texto

Obrigado pela atenção.
A coluna esta mesclada com Números e Texto , então o código tem que pegar o ultimo numero da coluna.
Se for Letra pega a antepenúltima se for numero ou não fazer nada.
Obrigado.

Boa tarde!!

Talvez sirva de inspiração

Sub AleVBA_13914()
    Range("A" & ActiveSheet.Rows.Count).End(xlUp).Select
    If IsNumeric(ActiveCell.Value) Then
    ActiveCell.Copy Destination:=Range("B4")
    End If
    End Sub

Agora é só ajustar para pegar a célula anterior (else....)

Resolvido, obrigado Alexandrevba.