help changing repeating code into array of somekind also copy highlighted rows to new shee

Maybe try:

Sub baby_kay_2003yy()
Dim ws As Worksheet
Dim fCell As Range

Set ws = ActiveSheet
Sheets.Add.Name = "Our Chargebacks"

With ws
For Each fCell In .Range("A2:A" & .Range("A" & Rows.Count).End(3).Row)
If fCell.Interior.ColorIndex = 6 Then .Rows(fCell.Row).Copy Sheets("Our Chargebacks").Range("A" & Rows.Count).End(3)(2)
Next fCell
End With
End sub