Copy calculation results and paste special values to new row with each recalculation

I have a randbetween function (1,100) in cells A1:D1. With auto calculation set to manual, I need a macro that will calculate new random numbers in cells A1:D1 and then copy these and paste as values in F1:I1. Also, with each recalculation of the random numbers (from cells A1:D1), I'd like for the new random number values to be pasted just below the previous (I.e F2:I2, then F3:I3, and so on) every time I hit the button. I feel I have a good start with my macro but it only continually updates F1:I1. The macro currently assigned is as follows:

Sub copypastevalues()
Range("A1:D1").Copy
Range("A1").Range("F1").PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub

I even tried:

Sub copypastevalues()
Range("A1:D1").Copy
Range("A1").Range("F1").End(xlDown).Offset(1,0).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub

And that didn't work the way I wanted. Thanks for any and all help!

Michael

try:

Please Login or Register  to view this content.

Perfect. Thanks for your help!