Display Items of selected Category

Without seeing your code, a demonstration as a beginner starter :

PHP Code: 

Sub Demo()
  Const F = "TRANSPOSE(IF(#=""¤"",ROW(#)))"
    Dim C$, V, R&
        C = "Fruit"
    With Sheet1.UsedRange
        If Application.CountIf(.Columns(1), C) = 0 Then Beep: Exit Sub
        V = .Parent.Evaluate(Replace$(Replace$(F, "#", .Columns(1).Address), "¤", C))
        V(1) = 1
        V = Application.Index(.Value2, Application.Transpose(Filter(V, False, False)), [{2,3,4}])
    End With
    For R = 1 To UBound(V)
        V(R, 1) = V(R, 1) & String(2 + (Len(V(R, 1)) > 9), vbTab) & V(R, 2) & vbTab & V(R, 3)
    Next
        MsgBox Join(Application.Transpose(Application.Index(V, , 1)), vbLf), , C
End Sub 


Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !