なので、その作業を行うVBAスクリプトのサンプル。
例として、以下のような表（2021年有馬記念のレース結果）から、着順が赤色の表示になっている行を
抜き出してそれぞれ別シートにコピーする、という作業をやってみます。
１着のエフフォーリアは着順が赤色表示なので、この行は抜きだし対象です。
この行を抜き出して以下のように１枚のシートにコピーし、シート名を馬名にします。
以下、着順が赤色のディープポンド、クロノジェネシス・・を同様に抜き出して１枚のシートにコピーしていきます。
では、この作業のVBAの例を２つ示します。
サンプル１
Sub copy2sheet()
For i = 3 To 18
If Worksheets("data").Cells(i, 1).Font.Color = RGB(255, 0, 0) Then Worksheets.Add Else GoTo skip1: '・・・①
For j = 1 To 13
Sheets(1).Cells(1, j) = Worksheets("data").Cells(1, j).Value '・・・②
Sheets(1).Cells(2, j) = Worksheets("data").Cells(2, j).Value '・・・③
Sheets(1).Cells(3, j).NumberFormat = Worksheets("data").Cells(i, j).NumberFormat '・・・④
Sheets(1).Cells(3, j) = Worksheets("data").Cells(i, j).Value '・・・⑤
Next j
Sheets(1).Name = Worksheets("data").Cells(i, 3).Value '・・・⑥
skip1:
Next i
End Sub
①の行
If Worksheets("data").Cells(i, 1).Font.Color = RGB(255, 0, 0)
ワークシート"data"の１列目（着順の列）の文字の色が赤だったら、以下の処理をするようにしている。
Then Worksheets.Add Else GoTo skip1:
ワークシートを新規に追加する。
新規に追加されたシートは１番最初のシートになるので、以降 Sheets(1) としてアクセス可能。
Forループの中で
②は１行目を新しいシートにコピーしている。
③は２行目を新しいシートにコピー。
④は抜き出す行のセルのフォーマットをコピーしている。これを行わないと表示が崩れるケースがある。
例えばタイムの列の表示などがそうである。タイムの列のセルは時刻表示になるようにセルのフォーマットが
されているので、普通の数値表示にすると表示が崩れてしまう。
⑤は抜き出す行の値を新しいシートにコピーしている。
⑥新しいシートの名前を馬名にする。
なお、フォントの色はコピーしていないので、着順の色は標準色（黒）になってしまっています。
文字色やNumberFormatの説明等はセル関連基本マクロpart2にあります。
サンプル２
上記のサンプル１はForループを駆使して１つ１つのセルを順番にコピーしていましたので、動作は目で追える程度に
ノロいです。
そこでCopyメソッドを使って高速化したのがこのサンプル２
結果はサンプル１と同じですが、サンプル１と区別がつくように、新しいシート名は"馬名"+"2"になるようにしています。
また、Copyメソッドを使った場合は、セルのフォーマット情報も、フォントの色の情報も全てコピーされるので、
着順の文字色は赤になります。
Sub copy2sheet2()
For i = 3 To 18
If Worksheets("data").Cells(i, 1).Font.Color = RGB(255, 0, 0) Then Worksheets.Add Else GoTo skip1:
Worksheets("data").Range("A1:M2").Copy Destination:=Worksheets(1).Range("A1:M2") '・・・⑦
Worksheets("data").Rows(i).Copy Destination:=Worksheets(1).Rows(3) '・・・⑧
Sheets(1).Name = Worksheets("data").Cells(i, 3).Value + "2"
skip1:
Next i
End Sub
⑦，⑧
サンプル１では、For j = 1 to 13 のループの中で行っていた②，③、④、⑤の作業を
この２行で完了しています。
こちらのほうが圧倒的にスピードは速いです。
Copyメソッドの説明はセル関連基本マクロpart2にあります。