Felder in zweiten Sheet verschieben

Option Explicit
Option Compare Text

Const MoveSheet = "Tabelle2"        'Tabelle verschieben  

Const StatusSpalte = 5              'Status Spalte  
Const StatusText = "bezahlt"        'Status Text  

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = StatusSpalte Then
        If Target Like StatusText Then Call MoveLine(Target.Row)
    End If
End Sub

Private Sub MoveLine(ByVal Line As Long)
    Dim Wks As Worksheet, NextLine As Long
    
    Set Wks = Sheets(MoveSheet)
    
    NextLine = Wks.Cells(Wks.Rows.Count, "B").End(xlUp).Row + 1  
    
    Application.ScreenUpdating = False
    
    Rows(Line).Cut
    Wks.Rows(NextLine).Insert Shift:=xlDown
    Rows(Line).Delete Shift:=xlUp
    
    Application.ScreenUpdating = True
End Sub