Sub Paso02()
    Columns("A:A").Select
    Selection.Insert Shift:=xlToRight
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Nombre Completo"
    Columns("B:B").Select
    Selection.Copy
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "=RC[1]&"" ""&RC[2]"
    Range("A3").Select
    Columns("A:A").EntireColumn.AutoFit
End Sub
