Sub Paso01()
    Rows("4:4").Select
    Selection.Delete Shift:=xlUp
    Rows("1:2").Select
    Range("A2").Activate
    Selection.Delete Shift:=xlUp
    Columns("A:A").Select
    Selection.Delete Shift:=xlToLeft
    Range("A1:C1").Select
    Selection.Style = "60% - Accent1"
    Rows("1:1").Select
    Selection.Font.Bold = True
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Columns("A:C").Select
    Columns("A:C").EntireColumn.AutoFit
End Sub
