合并 2 个工作表更改事件 Excel VBA

问：

有人可以帮我在下面结合这两个事件吗？我的目标是在将“已完成”输入到 F 列时将我的行移动到另一张工作表。此外，我希望在相应行中的值/字符串发生更改时向 G 列添加上次更新的日期/时间，但我无法弄清楚如何组合它们。请帮忙！

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim AffectedRange As Range
    Set AffectedRange = Intersect(Target, Target.Parent.Range("B3:L5000"))
    Dim Z As Long
    Dim xVal As String
    On Error Resume Next
    

    If Not AffectedRange Is Nothing Then
        Application.EnableEvents = False 'pervent triggering another change event

' Last Updated

    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Row < 1 Then Exit Sub
    If Target.Column < 2 Then Exit Sub
    Cells(Target.Row, "G") = Date
    
Next AffectedRange

'MOVING COMPLETED

    'Dim Z As Long
    'Dim xVal As String
    'On Error Resume Next
    
    If Intersect(Target, Range("F:F")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    For Z = 1 To Target.Count
        If Target(Z).Value > 0 Then
            Call MoveBasedOnValue
        End If
        
          
    Next
    
    Application.EnableEvents = True
    
    

    End If
End Sub