Päivämäärä tyhjään soluun

Hei

pitäisi saada sellainen funktio joka lisää senhetkisen päivämäärän soluun.

K21:M21 on alue johon sijoitetaan X, esim. kohtaan L21, ja kun hyväksyn tämän enterillä, se lisää päivämäärän soluun P21. Ja huomenna kun teen saman homman, se lisää päivämäärän soluun O21 jne jne..

Tätä koodia olen käyttänyt aiemmin mutta pitäisi saada se tehtyä aiemmin mainitulla tavalla


Private Sub CommandButton68_Click()
If IsEmpty(Range("AU117")) Then
Range("AU117").Value = Format(Now, "mm-dd-yy")
Else
Cells(117, Columns.Count).End(xlToLeft).Offset(, 1).Value = Format(Now, "mm-dd-yy")
End If
End Sub


summa.jos funktiolla se taitanee onnistua, en vain osaa oikein näitä