Sub to transfer values and log the transfer

[Max]

Looking for help with a sub to do this ..

Transfer the values:
In D15 to D11
In G19:G39 to E19:E39
then log the time/date of the transfers in cell E11 in this format:
"Last Transferred on 9:30 AM 24 Aug 2009"

D15, G19:G39 contain formulas whose returns are to be "copied/pasted as
values" into D11 & E19:E39

Thanks

 

[Jacob Skaria]

Try the below which works on the active sheet

Sub Macro()
Range("D11").Value = Range("D15").Value
Range("E19:E39").Value = Range("G19:G39").Value
Range("E11") = "Last Transferred on " & Format(Now, "hh:mm AM/PM dd mmm yyyy")
End Sub


If this post helps click Yes

 

[Max]

Many thanks, Jacob.
That does it well.