Envio Automático de Dados

[CAMILOALVES]

Bom Dia!
Pedido de Ajuda na Planilha Anexa:
Sempre que na coluna "Dias Restante" (E5 até E24) for menor que 30, A planinha em questão deverá ser enviada Automaticamente a um determinado email .
OBS: Somente os itens que tiverem na coluna "Dias Restante" menor que 30 devem ser enviados ao respectivo email.
Detalhe: esse envio sempre se dará Automaticamente às 8:00Hs.
Resumindo: Todos os dias sempre às 8:00Hs os itens que estiverem com "Dias Restante" menor que 30 deverão ser enviados a um determinado email.
Até Tentei a Macro Abaixo:
Sub enviar_corpo_email_01()
Sheets("Tempo").Visible = True
Application.Goto (ActiveWorkbook.Sheets("Tempo").Range("A1:F25"))
Excel.Application.DisplayAlerts = False
ActiveWorkbook.EnvelopeVisible = True

With Sheets("Tempo").MailEnvelope
.Introduction = ""
.Item.To = "xxxxxxx@xxxxx.com.br"
.Item.Subject = "Calibração e/ou Ensaios a Vencer Nos Próximos 30 Dias"
.Item.Send
End With
Excel.Application.DisplayAlerts = True
End Sub
Desde já Agradeço