Sub Copiar_Rango()
    Dim marca$
    marca = InputBox("Ingrese marca de auto: ", "Ingreso")
    Sheets("Original").Select
    Range("B12").Select

    Do While ActiveCell <> ""
        If ActiveCell = UCase(marca) Then
            ActiveCell.Select
            Range(ActiveCell, ActiveCell.Offset(0, 5)).Select
            Selection.Copy

            Sheets("Copias").Select
            Range("B12").Select
            Do While ActiveCell <> ""
                ActiveCell.Offset(1, 0).Select
            Loop
            ActiveSheet.Paste
        End If
        Sheets("Original").Select
        ActiveCell.Offset(1, 0).Select
    Loop
    Range("B12").Select
    Application.CutCopyMode = False
End Sub