select random cells from multiple sheets and copy

hi
im having problems I would like to select say 2 id from sheet1 and 2 names from sheet 2 randomly and copy to sheet3 ,to cells a and b,have seen various codes but none seem to fit the bill,any suggestions please
cheers colin

Hi C,

Try this:

Sub CFinch(): Dim w1 As Worksheet, w2 As Worksheet, w3 As Worksheet, N, ID, X As Integer
Set w1 = Sheets("Sheet1"): Set w2 = Sheets("Sheet2"): Set w3 = Sheets("Sheet3")
    ID = w1.Range("B2").CurrentRegion: N = w2.Range("A2").CurrentRegion
    Do: X = Int(Rnd() * UBound(N)): Loop Until X <> 0: w3.Range("A1") = w2.Range("A" & X + 1)
    Do: X = Int(Rnd() * UBound(ID)): Loop Until X <> 0: w3.Range("B1") = w1.Range("B" & X + 1)
End Sub

You're welcome and thanks for the rep!