Private Sub Workbook_Open()
If [B7] <> Date Then
Range("B7:B16").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
[B7] = Date
[C7].Copy
[B7].PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
[A1].Select
End If
End Sub