Neviem či som pochopil to čo chceš ale skús toto:
Public Sub ExcelTimer()
Dim PauseTime, Start, Finish, TotalTime
Finish = 1
TotalTime = 10
PauseTime = 3
Start = Timer
[g6].Select
Do While Timer < Start + (PauseTime * TotalTime)
DoEvents
If Timer >= Start + (PauseTime * Finish) Then
If ActiveCell.Address = Range("g6").Address Then
[g12].Select
Finish = Finish + 1
ElseIf ActiveCell.Address = Range("g12").Address Then
[g6].Select
Finish = Finish + 1
End If
End If
Loop
End Sub