Diego Notebook

Fala Galera! Tenho dois códigos que gostaria que rodassem juntos, podem me ajudar? Comecei no VBA agora e estou quebrando a cabeça! 🤪 Option Explicit Dim tempo As Date Sub executa_por_tempo() tempo = Now + TimeValue("00:00:05") Call Application.OnTime(tempo, "executa_por_tempo") 'Gostaria que a Private Sub rodasse aqui End Sub Sub finaliza_por_tempo() Call Application.OnTime(tempo, "executa_por_tempo", , False) End Sub Private Sub Private Sub Worksheet_Change(ByVal Target As Range) Static OldVal(2 To 709) As Variant Dim E As Range, F As Range, r As Range, Intersekt As Range Dim rw As Long Set E = Range("E2:E709") Set F = Range("F2:F709") Set Intersekt = Intersect(E, Target) If Intersekt Is Nothing Then Exit Sub Application.EnableEvents = False For Each r In Intersekt rw = r.Row If r.Value <> OldVal(rw) Then r.Offset(0, 1).Value = r.Offset(0, 1).Value + 1 OldVal(rw) = r.Value End If Next r Application.EnableEvents = True End Sub