Filtro su più colonne

Ciao Alfredo
ho personalizzato la tua macro e funziona alla perfezione, anche con l'aggiunta di più colonne. Il problema è che mi restituisce i dati alla riga 900 circa, come faccio a far si che me li restituisca alla riga 1 come nel tuo file?

di seguito la macro modificata con evidenziato le mofiche apportate.


Sub Estrai()
Dim ur As Long
Dim rng As Range
Dim cel As Range
Set rng = Sheets("Soci Allievi").Range("Q7:U600")
Sheets("Estrazione Dati").Range("A7:U1000").ClearContents
For Each cel In rng
ur = Sheets("Estrazione Dati").Cells(Rows.Count, 1).End(xlUp).Row
If cel.Value = Sheets("Estrazione Dati").Range("B2").Value Then
Sheets("Estrazione Dati").Cells(ur + 1, 1).Value = Sheets("Soci Allievi").Cells(cel.Row, "a").Value
Sheets("Estrazione Dati").Cells(ur + 1, 2).Value = Sheets("Soci Allievi").Cells(cel.Row, "b").Value
Sheets("Estrazione Dati").Cells(ur + 1, 3).Value = Sheets("Soci Allievi").Cells(cel.Row, "c").Value
End If
Next cel
End Sub

grazie
Matteo