Sub Inserta_hoja_y_títulos()

    Dim hoja_original, hoja_nueva, v_equipo
    Set hoja_original = ActiveSheet
    Sheets.Add
    Set hoja_nueva = ActiveSheet
    
    hoja_original.Select
    Rows("1:1").Select
    Selection.Copy
    hoja_nueva.Select
    Rows("1:1").Select
    ActiveSheet.Paste
    Range("A2").Select
    ActiveWindow.FreezePanes = True
    hoja_original.Select
        
    ' Empezaría en A2
    Range("A2").Select
    
    ' Usaría una variable para ver cuál es el equipo actual
    v_equipo = ActiveCell

    ' Bajaría un renglón a la vez, hasta encontrar un renglón que sea diferente.
    While ActiveCell = v_equipo
        ActiveCell.Offset(1, 0).Select
    Wend
    
    ' Seleccionaría desde el renglón 2 hasta el renglón que está antes 
    ' del que es diferente, y lo cortaría.
    Rows("2:" & ActiveCell.Row - 1).Copy
    
    ' Lo pegaría en la hoja nueva.
    hoja_nueva.Select
    Rows("2:2").Select
    ActiveSheet.Paste

    'Regresaría a la hoja vieja, y borraría lo que copié.
    hoja_original.Select
    Rows("2:" & ActiveCell.Row - 1).Delete Shift:=xlUp

    ' Terminaría en A2
    Range("a2").Select
End Sub
