Sub Test()
    Dim iCell As Long, i As Long, j As Long, Priznak
    Priznak = Array("c", "a")
    
    For i = 0 To UBound(Priznak)
     For iCell = 1 To Cells(Rows.Count, 1).End(xlUp).Row
         j = Sheets("Лист2").Cells(Rows.Count, 1).End(xlUp).Row
      If Cells(iCell, 1) = Priznak(i) Then
         Rows(iCell).Copy Sheets("Лист2").Rows(j + 1)
      End If
     Next iCell
    Next i
End Sub