Option Explicit
Sub FilterBasedOnCellValueAnotherSheet()
Dim category As Range
With Worksheets("Sheet8")
Set category = .Range("C2")
End With
With Worksheets("Sheet7")
With .Range("B4:G13")
.AutoFilter Field:=2, Criteria1:=category, VisibleDropDown:=True
End With
End With
End Sub