Creare menu a tendina con selettore di dati

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
If Not Intersect(Target, Range("f1")) Is Nothing Then
Application.ScreenUpdating = False
If Target.Value = "" Then Exit Sub
With Sheets("Foglio1").Range("A:A")
            Set Rng = .Find(What:=Range("f1").Value, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Not Rng Is Nothing Then
                Rng.EntireRow.Delete
            End If
        End With
Application.ScreenUpdating = True
End If
End Sub

=SCARTO(Foglio1!$A$3;0;0;CONTA.VALORI(Foglio1!$A$3:$A$98);1)

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Rng As Range
If Sh.Name <> "SELETTORE BARCHE" Then
    If Not Intersect(Target, Sh.Range("A3:A35")) Is Nothing Then
        Application.ScreenUpdating = False
            If Target.Value = "" Then Exit Sub
                With Sheets("SELETTORE BARCHE").Range("A:A")
                            Set Rng = .Find(What:=Target.Value, _
                                            After:=.Cells(.Cells.Count), _
                                            LookIn:=xlValues, _
                                            LookAt:=xlWhole, _
                                            SearchOrder:=xlByRows, _
                                            SearchDirection:=xlNext, _
                                            MatchCase:=False)
                            If Not Rng Is Nothing Then
                                Rng.EntireRow.Delete
                            End If
                        End With
            Application.ScreenUpdating = True
        End If
End If
End Sub

=SCARTO(Foglio1!$A$3;0;0;CONTA.VALORI(Foglio1!$A$3:$A$98);1)

=SE(CONTA.SE('Base prova'!$A$3:$A$37;A1)>=1;"";RIF.RIGA())

{=SE(VAL.NUMERO(PICCOLO(SE($B$1:$B$35="";"";RIF.RIGA($B$1:$B$35));RIF.RIGA($A1:$D1)));INDIRETTO("A"&PICCOLO(SE($B$1:$B$35="";"";RIF.RIGA($B$1:$B$35));RIF.RIGA($A1:$D1)));"")}