Option Explicit
Sub Test()
Range("G25").Select
ActiveCell.FormulaR1C1 = ActiveWorkbook.BuiltinDocumentProperties.Item _
("Creation date").Value
Range("F24").Select
ActiveCell.FormulaR1C1 = "Due Date"
Range("F25").Select
ActiveCell.FormulaR1C1 = "Order Date"
Range("F26").Select
ActiveCell.FormulaR1C1 = "Create Date"
Range("F27").Select
ActiveCell.FormulaR1C1 = "Create Time"
Range("F28").Select
ActiveCell.FormulaR1C1 = "DOW"
Range("F29").Select
ActiveCell.FormulaR1C1 = "Drop Time"
Range("G29").Select
ActiveCell.FormulaR1C1 = _
"=IF(R[-2]C>=15/23.99,""10pm"",IF(R[-2]C>=7/24,""2pm"",IF(R[-2]C>=0/23.99,""6am"")))"
Range("G30").Select
Range("G28").Select
ActiveCell.FormulaR1C1 = "=WEEKDAY(R[-2]C)"
Range("G27").Select
ActiveCell.FormulaR1C1 = "=R[-2]C-INT(R[-2]C)"
Range("G26").Select
ActiveCell.FormulaR1C1 = "=INT(R[-1]C)"
Range("F29:G29").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Range("F24:G24").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Range("G24:G29").Select
Range("G29").Activate
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Range("G29").Select
Selection.Font.Bold = True
Range("G24").Select
Selection.Font.Bold = True
Range("E23:G30").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("F24:G24").Select
Selection.Interior.ColorIndex = 6
Range("F29:G29").Select
Selection.Interior.ColorIndex = 6
Range("E22:G31").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("G28").Select
Selection.NumberFormat = "0"
Range("G27").Select
Selection.NumberFormat = "h:mm AM/PM"
Range("G26").Select
Selection.NumberFormat = "d-mmm-yy"
Range("G25").Select
Selection.NumberFormat = "m/d/yy h:mm"
Range("G24").Select
Selection.NumberFormat = "d-mmm-yy"
Range("G24").Select
Selection.Font.Bold = True
Range("G24").Select
Range("G25").Select
ActiveWindow.SmallScroll Down:=-1
Columns("G:G").ColumnWidth = 10
Columns("G:G").EntireColumn.AutoFit
With ActiveSheet
Range("G24").Select
ActiveCell.Formula = _
"=G26+IF(OR(H38={""Reg Photo Paper"",""Matte Photo Poster"",""Moab"",""Giclee"",""Canvas"",""Reg Photo Paper "",""Matte Photo Poster "",""Moab "",""Giclee "",""Canvas ""}),IF(G28=1,2,IF(G28=7,3,IF(G28={5,6},IF(G29=""10pm"",4,IF(OR(G29={""2pm"",""6am""}),3,0)),IF(OR(G28={2,3,4,5}),IF(G29=""10pm"",2,IF(OR(G29={""2pm"",""6am""}),1,0)),IF(AND(OR(G28={2,3,4,5}),OR(G29={""2pm"",""6am""})),1,0))))),IF(OR(H38={""Premium Photo Paper"",""Laminate"",""Premium Photo Paper "",""Laminate ""}),IF(G28=1,4,IF(G28=7,5,IF(OR(G28={4,5,6}),IF(OR(G29={""2pm"",""6am""}),5,IF(G29=""10pm"",6,0)),IF(OR(G28={2,3}),IF(G29=""10pm"",4,3),0)))),0))"
End With
Range("G25").Select
End Sub