Rows("1:5").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ActiveCell.FormulaR1C1 = "1"
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
Selection.Font.Bold = True
Range("A2").Select
ActiveCell.FormulaR1C1 = "2"
Selection.Font.Bold = True
Range("A3").Select
ActiveCell.FormulaR1C1 = "3"
Selection.Font.Bold = True
Range("A4").Select
Selection.NumberFormat = "mm/dd/yy"
ActiveCell.FormulaR1C1 = "4"
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Font.Bold = True
Range("A5").Select
ActiveCell.FormulaR1C1 = "5"
Selection.Font.Bold = True
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
Bookmarks