Perhaps you could us double click, something along the lines of this
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A2:A1000")) Is Nothing Then
If Target.Value <> "" Then
Cancel = True
With Sheet2
.Select
.UsedRange.AutoFilter Field:=6, Criteria1:=Target.Value
End With
End If
End If
End Sub