hücreye atanan makro hk.

[ahmet-61]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A2]) Is Nothing Then Exit Sub
If Target <> Empty Then
Sheets("VERISAYFASI").Range("B1").AutoFilter Field:=2, Criteria1:=Target
Sheets("VERISAYFASI").Select
Else
End If
End Sub

bu kod ile a2 hücresine tıkladığımda belirttiğim sayfada süzme yapabiliyorum,
ancak aynı sayfada başka hücrelere aynı kodu yazamıyorum,
yardımcı olabilir misiniz?