Whatsaap Mesaj Gönderme Makro Kodu Revize Talebi

Merhaba sevgili üstadlar ve forumdaşlar,

Daha önce buton ile manuel whatsaap mesajı gönderme işlemi yaptığım kod üzerinde revize talebim olacak; şöyle ki bünyemizde onlarca araç için takibini yaptığımız sigorta ve kasko gibi ileri tarihli işlemler için hatırlatma mesajı almak istiyorum. Sigorta ve Kasko tarihine 10 gün kaldığında ilgili aracın ilgili satırındaki ilgili hücrede 10 Gün kaldı yazısı geldiğinde mesai saatlerinde belirleyeceğimiz saatte mesaj atmasını sağlayabilirmiyiz.
Saygılarımla.

Kod şu şekilde;

Sub WhatsapMesaj()
Dim kime As String
Dim mesaj As String

kime = Sheets("Sayfa1").Range("xx1").Text
metin = Sheets("Sayfa1").Range("xx2").Copy

ActiveWorkbook.FollowHyperlink Address:="WhatsApp Web"
Application.Wait (Now + TimeValue("00:00:12"))

Call SendKeys("{TAB}", True)
Application.Wait (Now + TimeValue("00:00:03"))
Call SendKeys(kime, True)
Application.Wait (Now + TimeValue("00:00:03"))
Call SendKeys("~", True)
Application.Wait (Now + TimeValue("00:00:05"))
Call SendKeys("^+V", True)
Application.Wait (Now + TimeValue("00:00:03"))
Call SendKeys("~", True)
Application.Wait (Now + TimeValue("00:00:05"))
Call SendKeys("^+w", True)

SendKeys "%{F4}", True
MsgBox " Mesaj İletilmiştir.", vbInformation


End Sub