Yardım sendkeys sorunu

Arkadaşlar bu şekilde kullandığım bir komutum var ancak hızından dolayı komutlar çoğunlukla karıştığından dolayı farklı alanlara farklı verileri aktarabiliyor. Kodda mümkünse bazı değişiklikler yapabilme imkanınız varmıdır? Teşekkürler..


'Private Sub CommandButton1_Click()

Sub YILLIKizin1()
AppActivate "Kullanılan İzinler", True
For d = 414 To 416
SendKeys "{f4}", True
'Sleep (1200)
newHour = Hour(Now()) '5 sn bekleme yaptırıyor
newMinute = Minute(Now())
newSecond = Second(Now()) + 2 'süre miktari saniye olarak
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime

SendKeys "{f9}", True
'Sleep (2200)
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 4
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
SendKeys Sheets("YILLIKİZİN1").Cells(d, 1), True
'Sleep (1500)
newMinute = Minute(Now())
newSecond = Second(Now()) + 3
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
SendKeys "{ENTER}", True
Sleep (1000)
SendKeys "{f9}", True
Sleep (1000)
SendKeys Sheets("YILLIKİZİN1").Cells(d, 5), True
Sleep (600)
SendKeys "{ENTER}", True
Sleep (600)
SendKeys Sheets("YILLIKİZİN1").Cells(d, 3), True
Sleep (600)
SendKeys "{ENTER}", True
Sleep (600)
SendKeys Sheets("YILLIKİZİN1").Cells(d, 4), True
Sleep (300)
SendKeys "{ENTER}", True
Sleep (300)
'SendKeys "{ENTER}", True
'Sleep (300)
'SendKeys "{ENTER}", True
'Sleep (300)
'SendKeys "{ENTER}", True
'Sleep (300)
'SendKeys "{ENTER}", True
'Sleep (300)
SendKeys "{f2}", True
Sleep (1000)
Next
End Sub

arkadaşlar 1 çözüm yokmudur?