Hogyan tudom Excel VBA-ban makró segítségével egy külön munkalapra másolni a kritériumok szerinti adatokat a többi munkalapról?

Van egy majdnem 1000 munkalapból álló munkafüzetem, egy külön munkalapra kellene másolnom azokat a sorokat amelynek egy bizonyos oszlopában -1000-nél kisebb értékek vannak. Egy for ciklussal más pirosra színeztettem a másolandó cellákat, és egy másik for ciklust próbálok írni, a másolással talán megvagyok a beillesztés része nem megy. KB így gondoltam

Dim i As Integer

For i = 2 To 975

Sheets(i).Select

If Cells.Interior.Color = 192 Then Cells.EntireRow.Copy

ActiveSheet.Range("A" & Rows.Count).PasteSpecial

End

Next i

End Sub