Sub Poner_Datos()
'Act.Por Dante Amor
Application.ScreenUpdating = False
Range("B:E").EntireColumn.Insert
u = Range("A" & Rows.Count).End(xlUp).Row
Range("B10:B" & u).Value = 1
Range("C10:C" & u).Value = 2018
Range("D10:D" & u).Formula = "=DATE(RC[-1],RC[-2],RC[-3])"
Range("D10:D" & u).Copy
Range("E10").PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
Range("A9").Copy
Range("F10").PasteSpecial xlPasteValuesAndNumberFormats
'Application.CutCopyMode = False
Range("F11:F" & u).Value = Range("F10")
Columns("F:F").Select
Range("F7").Activate
With Columns("F:F")
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = -1
.ShrinkToFit = False
.ReadingOrder = xlContext
End With
Range("F8").FormulaR1C1 = "SUCURSAL"
Range("E8").FormulaR1C1 = "FECHA"
Range("B:D").EntireColumn.Delete
Rows("9:9").Delete Shift:=xlUp
Range("A1:A6").EntireRow.Delete
Range("G1:K1").EntireRow.Delete
Range("A1").Value = 1
Application.ScreenUpdating = False
On Error Resume Next
Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Range("A1").Select
Application.ScreenUpdating = True
End Sub