You'd best upload a sample of your work book so that we can see exactly what it is that you want to do. The following basic code will copy random cells from sheet 1 to sheet 2:-
Application.ScreenUpdating = False
Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues
Application.ScreenUpdating = True
Application.CutCopyMode = False
but it will only place them one beneath the next in sheet 2.
Do you have an entire row of data to transfer over with the random cell value?
You can upload a sample of your work book using a free file sharing site such as DropBox or ge.tt