DATA EM CÉLULA

 Para colocar a data corrente (ou outra) numa determinada célula, podemos utilizar um pouco de VBA:

O Código:

Sub Colocar_Data()

    Dim Ops(1 To 3) As String
    Dim Msg As String
    Ops(1) = Day(Date)
    Ops(2) = Month(Date)
    Ops(3) = Year(Date)
    Msg = Ops(3) & "-" & Ops(2) & "-" & Ops(1)

    Range("C1").Select
    Application.Cursor = xlNormal
    ActiveCell.FormulaR1C1 = InputBox(Prompt:="Colocar Data (aaaa-mm-dd):", _
                                      Title:="Date", Default:=Msg)

End Sub