I suppose it would help if I included the macro!

Range("A5:G5").Select
Selection.Insert Shift:=xlDown
Range("B3:F3").Select
Selection.Copy
Range("B5:F5").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False
Range("B3:F3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("B5").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=IF(B5B6,TRUE)"
Selection.FormatConditions(1).Font.ColorIndex = 5
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=IF(B5<B6,TRUE)"
Selection.FormatConditions(2).Font.ColorIndex = 3
Selection.Copy
Range("B5:F5").Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False
Application.CutCopyMode = False
Range("A5").Select
End Sub

*George Gee* has posted this message:

Happy new year to all!

I recorded this macro some time ago, the cell A5 is selected at the
end of the macro,
ready for the user to insert today's date.
How do I edit the macro to insert today's date into cell A5, when it
is run.

I do not want to use =TODAY() as this would change the date, daily,
(does that make sense)?

Many thanks



--
George Gee
--