طلب مساعدة عاجلة في ماكرو نقل بيانات شيت الي اخر مرتبط بوقت معين

[mhshahen]

الاخوة الفضلاء انا مبرمج بعيد عن مجال VBA 

ومضطر لترحيل بيانات من شيت الى شيت اخر بحيث 

يتم الترحيل صف بعد صف كل فترة زمنية محدده 

توصلت للكود  ولكنه ينقل الجميع مرة واحدة 

اريد دمج اللوب مع التايمر ولا ادري في الفجوال بيزيك كيف يتم ذلك 

 

ارجو من احد الخبراء افادتي

 

Option Explicit
Sub KickStart()
  Application.OnTime Now + TimeValue("00:00:17"), "My_Procedure"
End Sub

Sub My_Procedure()
Dim LR As Long, i As Long
With Sheets("Sheet1")
    LR = .Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To LR
        .Range("A" & i & ":H" & i).Copy
        Sheets("Sheet2").Range("A" & i - 1).PasteSpecial Paste:=xlPasteValues
      Call KickStart
    Next i
End With
End Sub