I want to add a timestamp each time the following code runs:
'Data Source
source.Range("E5:E20").Copy
'Gets Empty Column
emptyColumn = destination.Cells(5, destination.Columns.Count).End(xlToLeft).Column
Application.ScreenUpdating = False
If IsEmpty(destination.Range("E5")) Then
destination.Cells(5, 5).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Else
emptyColumn = emptyColumn + 1
destination.Cells(5, emptyColumn).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
The timestamp would be entered into the cell on row 4 of whichever column data is being pasted into.
Thanks
Bookmarks