Adding Date automatically on Command Button

Hi,
What would the code be to add the date in Column A of the row with data being inputted?

Private Sub Worksheet_Change(ByVal Target As Range)
    Cells(Target.Row, 1) = Format(Date, "dd-mm-yyyy")
End Sub