How to copy a cell from one worksheet to a cell in another?

[aesta]

Currently have a user form and data table where new entries in the user form go to the end of the data table in a worksheet called "Data Inputs", with the following relevant code:

Dim iRow2 As Integer
Dim Data1 As Range
iRow2 = Worksheets("Data Inputs").Cells(Rows.Count, 6).End(xlUp).Row + 1
Set Data1 = Worksheets("Data Inputs").Range("B" & iRow2)
Data1 = TextBox1.Value

TextBox1 is the text box in the user form, for which the value is being taken from. This part works with no problems.

The next thing I would like to do is take that same value and copy it into Cell C14 of a worksheet called "FT1 Data". This part would be a separate sub from the code above and would just be called within that code. I used the following code, but it doesn't seem to work:

Worksheets("FT1 Data").Range("C14") = Worksheets("Data Inputs").Range("B" & iRow2)


Any help would be much appreciated! Thanks in advance!

 

[Fluff]

why not just do

Worksheets("FT1 Data").Range("C14")=TextBox1.Value

rather then calling a separate sub?
If you want to keep it as a separate sub, then we'll need to see the code for that sub & the complete code for the extract you've shown