Sub HiddenRow()
Dim oSht1 As Worksheet, oSht2 As Worksheet
Dim oRng As Range, vl
  With ThisWorkbook
    Set oSht1 = .Sheets("Лист1"): Set oSht2 = .Sheets("Лист2")
    Set oRng = oSht1.Range(oSht1.Cells(1, 1), oSht1.Cells(Rows.Count, 1).End(xlUp))
    For Each vl In oRng
      If Not IsEmpty(vl.Value) Then
        If vl.Value = oSht2.Cells(vl.Row, 1).Value Then vl.EntireRow.Hidden = True
      End If
    Next
  End With
End Sub

Sub AllRowVisible()
  ThisWorkbook.Sheets("Лист1").Range(Cells(1, 1), Cells(Rows.Count, 1)).EntireRow.Hidden = False
End Sub

Application.ScreenUpdating = False
........
Application.ScreenUpdating = True

Sub HiddenRow1()
Dim oSD As Object, arr(), x As Long
Dim oSht1 As Worksheet, oSht2 As Worksheet, oRng As Range, vl

Set oSD = CreateObject("Scripting.Dictionary")
    oSD.comparemode = 1
Application.ScreenUpdating = False
  With ThisWorkbook
    Set oSht1 = .Sheets("Лист1"): Set oSht2 = .Sheets("Лист2")
    arr = oSht2.Range(oSht2.Cells(1, 1), oSht2.Cells(Rows.Count, 1).End(xlUp)).Value ' данные листа2
    For x = LBound(arr) To UBound(arr):  If Not oSD.exists(arr(x, 1)) Then oSD.Add arr(x, 1), 0
    Next x
    Erase arr
    Set oRng = oSht1.Range(oSht1.Cells(1, 6), oSht1.Cells(Rows.Count, 6).End(xlUp)) ' цикл по колонке F листа1
    For Each vl In oRng
      If Not IsEmpty(vl.Value) Then: If oSD.exists(vl.Value) Then vl.EntireRow.Hidden = True
    Next
  End With
Application.ScreenUpdating = True
Set oRng = Nothing: Set oSht1 = Nothing: Set oSht2 = Nothing
Set oSD = Nothing
End Sub

Set oSht1 = .Sheets(1): Set oSht2 = .Sheets(2)