ניתן לבנות קריטריון לסינון מתקדם, אבל במקרה הזה נראה לי שדוקא עמודת עזר (גם אם מוסתרת) - עדיפה: =COUNTIF(טבלה1[@[עמודה1]:[עמודה5]],"משה")
תנאי הסינון <>0.
ב - VB אתה רוצה להפעיל סינון (תצטרך להכין קריטריונים לסינון מתקדם או עמודת עזר) או להסתיר שורות ?
Sub Hide_Rows_No_Criteria()
LR = Cells(Rows.Count, 1).End(xlUp).Row
For R = 2 To LR
If Application.CountIf(Rows(R), "משה") = 0 Then Rows(R).EntireRow.Hidden = 1
Next
End Sub