Guru do Excel e Power BI

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, ou seja, de total gerenciamento do excel sempre à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 com 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

Amigo, boa noite!!!
Dá uma olhada na planilha que te enviei, coloquei explicações nela..
Espero que ajude!!
Abraço