Please help to Insert video in "Do Loop" VBA code in excel

Might need some refinement, but try:

Option Explicit

Sub Macro1()

Application.DisplayAlerts = False

Do

Dim i As Integer
i = i + 1
If i > 2 Then Exit Do
    
    Sheets("Sheet1").Select
    Range("A2").Select
    
    Application.Wait Now() + TimeValue("0:00:05")
         
    Sheets("Sheet2").Select
    Range("A2").Select
    
    Application.Wait Now() + TimeValue("0:00:05")
    
    Sheets("Sheet3").Select
    Range("A3").Select
    
    Application.Wait Now() + TimeValue("0:00:05")
    
    Sheets("Sheet4").Select
    Range("B3").Select
    
    'insert code here to play video (19 sec), video is on S:\test\abc.mp4
    Dim WMP As Object
 
    Set WMP = CreateObject("new:{6BF52A52-394A-11d3-B153-00C04F79FAA6}")
    WMP.OpenPlayer "S:\test\abc.mp4"

    Application.Wait Now() + TimeValue("0:00:20")
    
    'Shell ("taskkill /f /im wmplayer.exe")
    Shell "CMD /C TASKKILL /IM wmplayer.exe"
Loop

Application.DisplayAlerts = True
   
End Sub