// My first macro!

Sub Botón2_Haga_clic_en()
a = Worksheets("Hoja1").Cells(Rows.Count, 1).End(xlUp).Row

For I = 1 To a

    If Worksheets("Hoja1").Cells(I, 1).Interior.ColorIndex = 3 Then

        Worksheets("Hoja1").Rows(I).Copy

        Worksheets("Hoja2").Activate

        b = Worksheets("Hoja2").Cells(Rows.Count, 1).End(xlUp).Row

        Worksheets("Hoja2").Cells(b + 1, 1).Select

        ActiveSheet.Paste

        Worksheets("Hoja1").Activate

        Worksheets("Hoja2").Cells(b + 1, 1).Interior.ColorIndex = xlNone

    End If

Next

Application.CutCopyMode = False

ThisWorkbook.Worksheets("Hoja1").Cells(1, 1).Select

End Sub