rij verwijderen als waarden kolom x niet gevonden worden in kolom y of z

Sub Demo()
Dim Rng As Range, List As Object, Rw As Long
Set List = CreateObject("Scripting.Dictionary")
With Sheets("Sheet2")
  For Each Rng In .Range("A1", .Range("A" & Rows.Count).End(xlUp))
    If Not List.Exists(Rng.Value) Then
      List.Add Rng.Value, Nothing
    End If
  Next
End With
With Sheets("Sheet1")
  For Rw = .Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
    If Not List.Exists(.Cells(Rw, "A").Value) Then
      .Rows(Rw).Delete
    End If
  Next
End With
Set List = Nothing
End Sub

Sub tsh()
    Dim vR2, vR3
    Dim i As Long
    
    With Sheets("Sheet1").Cells(1).CurrentRegion
        vR2 = .Offset(, 1).Resize(, 1)
        vR3 = .Offset(, 2).Resize(, 1)
    End With
    With Sheets("Sheet2")
        For i = .Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
            If IsError(Application.Match(.Cells(i, 1), vR2, 0)) And IsError(Application.Match(.Cells(i, 1), vR3, 0)) Then .Rows(i).Delete
        Next
    End With
End Sub