Maak op je blad een knop en zet dit als code erachter. Een druk op de knop levert een nieuw random getal op en plaats het huidige onderaan bij in kolom C.

Private Sub CommandButton1_Click()
    Application.EnableEvents = False
    Range("A1").Select
    Selection.Copy
    Range("C65536").End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A1").FormulaR1C1 = "=RAND()"
    Range("A1").Select
    Application.EnableEvents = True
End Sub

WG