Yellow Color Row Copy and Paste in Specific Sheet VBA|VBA & Macros|Excel Forum|My Online Training Hub

I think you want alll the yellow rows copied from the various worksheets to the first work sheet? If so try this

Sub ListYellow()

Dim s As Worksheet
Dim sName As String

Dim NextRow As Long
Dim SheetLastRow As Long

Dim r As Range
Dim c As Range
Dim i As Integer

For Each s In ActiveWorkbook.Sheets

If s.Name = "Y - Color Data" Then
GoTo skipSheet
End If

SheetLastRow = s.Cells(Rows.Count, 2).End(xlUp).Row

Set r = s.Range("a1:a" & SheetLastRow)

For Each c In r
If c.Interior.Color = vbYellow Then

NextRow = Worksheets("Y - Color Data").Cells(Rows.Count, 2).End(xlUp).Row

c.EntireRow.Copy Worksheets("Y - Color Data").Range("a" & NextRow + 1)

End If

Next c

skipSheet:
Next s

End Sub