Sub Inserta_hoja_y_títulos()
    Dim hoja_original, hoja_nueva
    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
End Sub
