Hjælp til automation

Public Sub SetValue()
    Dim objWS As Worksheet
    Dim lngRows As Long
   
    Set objWS = ActiveSheet
   
    For lngRows = 1 To 15
        newHour = Hour(Now())
        newMinute = Minute(Now())
        newSecond = Second(Now()) + 20
        waitTime = TimeSerial(newHour, newMinute, newSecond)
        Application.Wait waitTime
       
        objWS.Cells(lngRows, 3) = objWS.Cells(1, 1)
    Next lngRows
   
    Set objWS = Nothing
End Sub

Husk at ændre til det antal gange, du vil have aflæst.