Random Number Copy to Cell

[farhad]

Good Day

I have the following code that picks a random number and copies to a textbox. This all works fine.

Private Sub Image22_Click()
Dim v As Variant
Dim MsgBox As String
'Dim strPassword As String
        With Worksheets("Sheet1")  'change this to the actual sheet name
            v = .Cells(.Rows.Count, "A").End(xlUp).Value
               .Cells(.Rows.Count, "A").End(xlUp).Cut .Cells(.Rows.Count, "B").End(xlUp)(2)
               
End With
With Worksheets("Sheet4")
'UserForm1.TextBox38.Text = MsgBox
UserForm1.TextBox38.Text = v
'MsgBox v =
'use v to place the value wherever you need it
End With
End Sub

I would to modify the above code to copy the last Random number to Sheet2 Column F:

Thanks