Подскажите как вставить дату в ячейку, где стоит курсор - переписываю Excel

в Excel было так:Sub DATA()Selection.Value = DateSelection.NumberFormat = "DD.MM.YY"' Selection.Value = SelectionEnd Subи вот еще добавить символ в ячейку где стоит курсор и вставить дату со сдвигомSub sell()If MsgBox("Продано ?", vbOKCancel + vbDefaultButton2 + vbExclamation) = vbOK Then Selection.Value = Selection + "п" Selection.Font.ColorIndex = 3 'Selection.Offset(0; -3).Value = Date 'вставить дату в ячейку левее 3 ' Selection.Offset(0; -3).NumberFormat = "Д.ММ.ГГ"End IfEnd SubЗаранее благодарю