I need to enter a timestamp in three cells P1, Q3, V3.

I tried below Excel VBA code.

Sub Start_Click()
With ActiveSheet.Range("p1")
    .NumberFormat = "dd/mm/yyyy HH:mm:ss AM/PM"
    .Value = Now()
    .ColumnWidth = 16#
End With
End Sub