VBA Filtri con criteri multipli

Salve a tutti,
premetto che sono un novello di VBA quindi scusate se posto codice strafalcione.
Da qualche giorno sto sbattendo la testa su come riuscire ad applicare un filtro con criteri multipli semplicemente con il click di un pulsante.
Il foglio è così impostato:
In sheet1 ho postato le celle (da A3 ad A50) dove l'utente può scrivere 48 criteri di filtro
In sheet3 c'è la tabella da filtrare. Il filtro è nella colonna G (la 7ima)

Inserendo manualmente i valori (vedi primo esempio) il filtro funziona ma cercando di inserirli con un ciclo for (esempio 2) non funziona.

Mille grazie a chi mi vorrà dare una mano.

Primo esempio:
Sheet3.Select
Selection.AutoFilter Field:=7, Criteria1:=Array("070910777", "070520411", "070640524"), Operator:=xlFilterValues

Secondo esempio:
'Filtro = ""
For I = 3 To 50
If Sheet1.Cells(I, 1) <> "" Then
If Filtro <> "" Then
If I = 4 Then
Filtro = Filtro + ", " + """" + Sheet1.Cells(I, 1).Value
Else
Filtro = Filtro + """" + ", " + """" + Sheet1.Cells(I, 1).Value
End If
Else
Filtro = Sheet1.Cells(I, 1).Value + """"
End If
Else
Exit For
End If
Next I
Selection.AutoFilter Field:=7, Criteria1:=Array(Filtro), Operator:=xlFilterValues

Ho caricato il file excel.....per chi volesse dare un'occhio ed aiutarmi