Segue modelo...

Edson, abri aqui (de curiosidade) e deu erro 400 ... (???) ... será que é porque uso o PODEROSO 2003 kkkkkkkkkkkkk

Copa, o modelo que o Edson postou foi feito no excel 2007, portanto não abre no 2003, a não ser que esteja utilizando um path para isto, se for isto, o erro se dá devido ao excel 2007 ter mais linhas que o 2003:
'Erro 400
'quantidade de linhas, v 2007 são : 1048576
'j = wss.Range("A1048576").End(xlUp).Row

'quantidade de linhas, v 2003 são : 65536
j = wss.Range("A65536").End(xlUp).Row

De qualquer forma segue na versão 2003:

[]s

Mauro, Edson, Copa
A macro só funcina se elas estiver classificada por data né?
Faz para mim ficou ótimo!
Obrigado

No seu modelo está em ordem crescente de data, por isso escrevi a rotina sob esta condição.

Se for necessário, é possível fazer com datas com ocorrência aleatória.

Edson, se puder fazer uma macro com datas aleatorias pra mim seria bom.
Obrigado

Edson, ou alguem que puder me ajudar.

o Edson me ajudou um pouco com a reposta acima, no entanto ela não está considerando os centavos.
Gostaria q ela somasse até duas casas depois da virgula, foi trata-se de valores em moeda R$

Se alguem puder me ajudar NOVAMENTE RSS .. eu agradeço!

Obrigado .. consegui resolver mudando a variavel "Dim"