Udvælgelse ud fra type i andet regneark

Indsæt koden i arkets kodemodul :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B2:B2000")) Is Nothing Then Exit Sub
Set sh = Sheets("Ark2") ' ret til ark hvor værdier skrives
r1 = Cells(2000, 1).End(xlUp).Row
sh.Range("A2:B2000") = ""
For t = 2 To r1
r2 = sh.Cells(2000, 1).End(xlUp).Row + 1
r3 = sh.Cells(2000, 2).End(xlUp).Row + 1
If Cells(t, 1) = 1 Then sh.Cells(r2, 1) = Cells(t, 2)
If Cells(t, 1) = 2 Then sh.Cells(r3, 2) = Cells(t, 2)
Next
End Sub

Det virkede. Mange tak for hjælpen. Lig venligst et svar, så jeg kan give dig point.
Hav en god dag!

velbekom, tak og i lige måde