Sub Inserta_hoja_y_títulos()
    Sheets("Sueldos de Americano").Select
    Sheets.Add
    Sheets("Sueldos de Americano").Select
    Rows("1:1").Select
    Selection.Copy
    Sheets("Hoja1").Select
    Rows("1:1").Select
    ActiveSheet.Paste
    Range("A2").Select
    ActiveWindow.FreezePanes = True
End Sub
