I have this code to submit a time stamp whenever a button is pushed but I
want it to paste Special so the time stays static and does not update with
each push of the button.

Sub TimeStamp()

Dim DestCell As Range

With Worksheets("Sheet")
Set DestCell = .Range("AU48")
End With

Do
If IsEmpty(DestCell.Value) Then
Exit Do
Else
Set DestCell = DestCell.Offset(0, 1)
End If
Loop

DestCell.Formula = "=TIME(HOUR(NOW()),MINUTE(NOW()),SECOND(NOW()) )"