aktuelles Datum setzen

Private Sub CommandButton4_Click()
'wenn ich auf diesen Button drücke soll es mir im Blatt Berechnung immer in
'Zeile 1, in der ersten freie Spalte das Datum im Datumsformat übertragen
Sheets("Berechnung").Cells(B1).End(xlToRight).Offset(0, 3) = Date
End Sub