VBA Code verschieben einer Zeile in anderes Tabellenblatt

[rebound6]

Hallo,

ich suche den VBA Code durch den eine Zeile aus dem Tabellenblatt "in progress" in die Tabellenblätter
"on hold" und "History" verschoben wird sobald ich im Tabellenblatt "in progress" in der Spalte "PRIO"
die Zahlen 0, 100 oder 4 eingebe. Hierbei verweisen die Zahlen 0 und 100 auf 
"History" und die Zahl 4 für "on hold".
Diesen Code habe ich bislang:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Dim lRow, zRow As Long

lRow = Sheets("in progress").Range("A65536").End(xlUp).Row
zRow = Sheets("on hold").Range("A65536").End(xlUp).Row + 1

Set Bereich = Range("Q11:Q" & lRow)

If Not Intersect(Target, Bereich) Is Nothing Then
   If IsDate(4) = True And Target.Value <> "" Then
   
   With Range("A" & Target.Row & ":AF" & Target.Row)  .Copy
   
   Sheets("on hold").Paste Destination:=Sheets("on hold").Range("A" & zRow)
Application.EnableEvents = False
   .Delete shift:=xlShiftUp
   End With
   End If
End If

Application.EnableEvents = True
End Sub

Ich hoffe jemand weiß Rat. Anbei noch die Datei.

Grüße

[RPP63]

Moin!
Warum drei Tabellenblätter und nicht einfach eine Zusatzspalte "Bearbeitungsstand", nach der man bequem filtern kann?
Als Alternative: Pivot-Table.

Gruß Ralf