boa tarde Pessoal !

Sou leigo no assunto, então desde já me perdoem.

Consegui um código na internet que poderá me ajudar, porém não estou conseguindo finalizar ele, por isso gostaria da ajudar de vocês que são muito mais entendidos do que eu.

Bem, vamos lá, eu preciso que o Excel me envie um e-mail sempre quando houver um cobrança para fazer, para isso eu tenho um controle de cobranças que contêm as datas, valores etc... segue abaixo colunas:

CLIENTE PRODUTO NAVIO QUANT. VALOR UNITARIO VALOR TOTAL PRÓX. COBRANÇA

2 coisas que eu precisava:

If Range("j85:j96") >> não ta funcionado, queria que ele procurasse nessa coluna essas linhas que contem as datas;

olMail.Body = "Teste2" >> aqui se possível, no corpo do email enviar a tabela inteira.

Sub EMail_Automático()
'==========================================================
'PARA REMESSA DE E-MAIL AUTOMÁTICO DE DENTRO DAS APLICAÇÕES
'==========================================================

Dim olApp As Object, olMail As Object
If Range("j85:j96").Value >= Range("a2").Value Then
Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.CreateItem(0)

olMail.Subject = "COBRANÇA PARA FAZER" 'Campo Assunto
olMail.Body = "Teste2" >>> Aqui eu gostaria de enviar a tabela que contêm as cobranças <<<<
olMail.To = "meuemail"

olMail.Send

Set olApp = Nothing
Set olMail = Nothing
End If
End Sub