Cercare in diversi fogli e Copiare in un determinato foglio la condizione soddisfatta.

Buongiorno

Avrei la necessità di cercare una condizione in diversi fogli e, quando soddisfatta, venga copiata in diverse colonne, a seconda del foglio.
Con questa macro:

Sub copiarighe()
Sheets("Stat").Select
Range("A:A").AutoFilter Field:=1, Criteria1:="=" & Range("Foglio1!B1")
Range("C:C").Copy Destination:=Range("Foglio1!D5")
Selection.AutoFilter
Range("A1").Select
End Sub

Riesco a cercarlo nel foglio stat e copiare la condizione di B1 a partire dalla cella D5 nel Foglio1.
Ora avendo 10 fogli nominati stat, stat1, stat2, stat3, etc... vorrei che per ogni foglio, in cui il valore di B1 viene trovato, venisse riportato in Foglio1 per ogni colonna: stat da D5 in basso, stat1 da E5 in basso, stat2 da F5 in basso.... e cosi' via

Ringrazio in anticipo chi cerchera' di aiutarmi =)