Fala Galera! Tenho dois códigos que gostaria que rodassem juntos, podem me ajudar?  Comecei no VBA agora e estou quebrando a cabeça! 🤪

Obrigado!

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