After copying cells to another workbook the contents does not show up as expected.

Sorry I am new to VBA.
I have a test that runs on a device. The results of the test are written to an excel spreadsheet. Each device tested has its own workbook. The sheet from the needed data is opened then the macro is ran by selecting the button. My problem is that my code opens the file I choose, MLTEST, but it does not copy the contents of the file. Instead it copies what is in the quotes from the Macro that I ran and saved. I have changed the macro to include srtFN instead of the original file name.
To help I have 3 files that have information in them so I can test my macro by using the button. The button allows me to choose the file I want to add to the list. The macro writes to file MLTEST(G,17) if it is empty. It keeps searching until a cell in row 17 is empty.
What do I need to do to my code to get the contents into the new location? I know this is simple but I have tried to add a .value to multiple places including after the strFN. If I keep the original filename in the part of the macro that I ran and saved it works except that I cannot choose the file. It keeps filling in the data with the same file. I have tried this using the Absolute method and the relative method of recording.
Following is my code:

Sub SendData()
'
' SendData Macro
' Macro recorded 10/9/2013 
'
'   The following opens a file of your choice

    Dim strFN As String
    strFN = Application.GetOpenFilename
    If strFN = "False" Then
     Exit Sub
    Else: Workbooks.Open Filename:=strFN
    MsgBox strFN
    End If
    
'    If Range("G17") = "" Then
'        Range("G17").Activate
'    Else
'        Range("G17").End(xlToRight).Offset(0, 1).Select
'        If ActiveCell.Value = "" Then
    Range("G17").Activate
    Do Until IsEmpty(ActiveCell.Value)
        ActiveCell.Offset(0, 1).Activate
    Loop
        
    
    Workbooks.Open Filename:=strFN
    ActiveCell.Offset(0, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "strFN!SerialNumber"
    ActiveCell.Offset(2, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "strFN!FrictionAvg"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "strFN!FrictionStDev"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "strFN!FrictionTorqueMin"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "strFN!FrictionTorqueMax"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "strFN!SpringAvg"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "strFN!SpringStDev"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "strFN!SpringTorqueMin"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "strFN!SpringTorqueMax"
    ActiveCell.Offset(-9, 1).Range("A1").Select
   
    
End Sub

Any help would be appreciated. Thanks to all. Again I am new to VBA and using Forums.
Sorry I forgot to put down that I was using Excel 2003.

You need another equal sign:

ActiveCell.FormulaR1C1 = "=strFN!SerialNumber"

xladept I got an error: Run-time error '-2147417878(80010108)':
Method 'FormulaR1C1'of object 'Range' failed

This is what debug highlighted:
ActiveCell.FormulaR1C1 = "=strFN!SerialNumber"
I tried this again with the same results except that I noticed a 0 in the first cell I am sending
the data to.

Hi M,

I'm confused. Is "SerialNumber" a named range? Is there a certain File name that you must pick?

Here's a line taken from working code:

ActiveCell.FormulaR1C1 = "='89'!RC+1"

Where 89 is a sheet name.

In the Test documents this is what is written in the first column. I thought that the macro that I ran just used this to identify where the data would be taken from.
I have been trying the ActiveCell.FormulaR1C1 = "='89'!RC+1" using strFN in place of the 89
Sorry this still does not work. All I am writing to the cells are what is in the quotes.
If I put the entire path and file name where the 89 is I get #Value! in the cell. I am researching this further.
I am still working toward a resolution.
Thank You for the reply.

Sorry xladept After reading my first answer I do not feel I answered your questions improperly.
My lack of knowledge with VBA is also a contributing factor. Again I apologize. Books are on order.
I have researched this further and found that I have tied the column 2 cells of the Test documents to the names in the recorded macro. After the test the files will be written into the folder. I wish to be able to open the new file run the macro to add the files
to the combined data.
I have since deleted the cells containing the Named cells and am now using cell names (R?, C?).
After recording another macro and in this macro and making the cell = to the needed data I am getting the data as needed.
The problem is that I cannot open the file I want. This leads me to believe that my original issue is in the statements of the macro.
Original:

  Dim strFN As String
    strFN = Application.GetOpenFilename
    If strFN = "False" Then
     Exit Sub
    Else: Workbooks.Open Filename:=strFN
 
    MsgBox strFN
    End If

This is the new macro I recorded. (Unable to open files I need to open)
New MACRO:

Sub NewTest()
'
' NewTest Macro
' Macro recorded 10/11/2013
    Workbooks.Open Filename:="C:\Test\MLSTEST.xls"
    ActiveCell.Select
    ActiveCell.FormulaR1C1 = "=[TestII.XLT]Sheet1!R4C2"
    ActiveCell.Offset(2, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=[TestII.XLT]Sheet1!R6C2"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=[TestII.XLT]Sheet1!R7C2"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=[TestII.XLT]Sheet1!R8C2"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=[TestII.XLT]Sheet1!R9C2"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=[TestII.XLT]Sheet1!R11C2"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=[TestII.XLT]Sheet1!R12C2"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=[TestII.XLT]Sheet1!R13C2"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=[TestII.XLT]Sheet1!R14C2"
    ActiveCell.Offset(-9, 1).Range("A1").Select
End Sub

This does work but I am unable to use files that I choose.
Thank you for your kind consideration.

Hi M,

Why don't you skip the Worksheet Formulas and just program what you want? BTW - exactly what is that??

Hi M,

Actually strFN is the FullName - you may want just the ActiveWorkbook.Name???

Hi M,

Here's how I interpret your code:

Sub NewTest(): Dim ws As Worksheet
Set ws = Workbooks("TestII.xlt").Sheets("Sheet1")
  
    Workbooks.Open Filename:="C:\Test\MLSTEST.xls"
    'ActiveCell.Select ' if the cell is active it's already selected
    'ActiveCell.FormulaR1C1 = "=[TestII.XLT]Sheet1!R4C2" Interpreted next line
    ActiveCell = ws.Cells(4, 2)
    ActiveCell.Offset(2, 0) = ws.Cells(6, 2)
    ActiveCell.Offset(3, 0) = ws.Cells(7, 2)
    ActiveCell.Offset(4, 0) = ws.Cells(8, 2)
    ActiveCell.Offset(5, 0) = ws.Cells(9, 2)
    ActiveCell.Offset(6, 0) = ws.Cells(11, 2)
    ActiveCell.Offset(7, 0) = ws.Cells(12, 2)
    ActiveCell.Offset(8, 0) = ws.Cells(13, 2)
    ActiveCell.Offset(9, 0) = ws.Cells(14, 2)    
End Sub

Since you've a template - probably the correct coding is:

Set ws = Workbooks("TestII1").Sheets("Sheet1")

Thank you for the response. I believe the problem is that the work sheet TestIII is already open and I need to know how to set as in your example ws as this worksheet. The reason is that all the data needed is named differently but in the same folder.
Here is the process used Presently the data is taken from the test and written to an excel file from a template the template will hold the macro to write the data into another file, customer format. I see the code you have above takes the offset and makes it equal to the worksheet.sheet1.cells. How can I make the ws = to the open worksheet? This would be so I can open any data sheet in the folder. I am presently researching this.
Your code.

 Sub NewTest(): Dim ws As Worksheet
Set ws = Workbooks("TestII.xlt").Sheets("Sheet1")
  
    Workbooks.Open Filename:="C:\Test\MLSTEST.xls"
    'ActiveCell.Select ' if the cell is active it's already selected
    'ActiveCell.FormulaR1C1 = "=[TestII.XLT]Sheet1!R4C2" Interpreted next line
    ActiveCell = ws.Cells(4, 2)
    ActiveCell.Offset(2, 0) = ws.Cells(6, 2)
    ActiveCell.Offset(3, 0) = ws.Cells(7, 2)
    ActiveCell.Offset(4, 0) = ws.Cells(8, 2)
    ActiveCell.Offset(5, 0) = ws.Cells(9, 2)
    ActiveCell.Offset(6, 0) = ws.Cells(11, 2)
    ActiveCell.Offset(7, 0) = ws.Cells(12, 2)
    ActiveCell.Offset(8, 0) = ws.Cells(13, 2)
    ActiveCell.Offset(9, 0) = ws.Cells(14, 2)    
End Sub

Thank you again.

At the top:

Set ws=ActiveSheet

**I may be confused again?? - You are writing from a template??

BTW - If you open the template with the Right Click - Open it won't be a copy.

When the test runs it uses a template to fill out the information then it saves as a .xls file. I open this file to write data to customer spreadsheet. The macro I am writing is being tied to the template so that when the new file is created the send data button tied to the macro will open C:\ , then I choose the customers file and the macro checks for an empty cell in R17 Starting at CG. Then the data is
copied from the Test documents into the file. After I added the set ws=ActiveSheet I got a runtime error '424' object required. I am assuming that I am missing a reference. Following is my code. I have commented out some of my code at the bottom.

Dim ws As Worksheet

Dim strFN As String

Sub SendData()
'
' SendData Macro
' Macro recorded 10/9/2013 by msmith
'

'   The following opens a file of your choice
    
   Set ws = ActiveWorksheet
   
        
        
    strFN = Application.GetOpenFilename
    If strFN = "False" Then
     Exit Sub
    Else: Workbooks.Open Filename:=strFN
    MsgBox strFN
    End If
    

    Range("G17").Activate
    Do Until IsEmpty(ActiveCell.Value)
        ActiveCell.Offset(0, 1).Activate
    Loop
        
    ActiveCell.Offset(0, 0) = ws.Cells("4, 2")
    ActiveCell.Offset(2, 0) = ws.Cells("6, 2")
    ActiveCell.Offset(1, 0) = ws.Cells("7, 2")
    ActiveCell.Offset(1, 0) = ws.Cells("8, 2")
    ActiveCell.Offset(1, 0) = ws.Cells("9, 2")
    ActiveCell.Offset(1, 0) = ws.Cells("11, 2")
    ActiveCell.Offset(1, 0) = ws.Cells("12, 2")
    ActiveCell.Offset(1, 0) = ws.Cells("13, 2")
    ActiveCell.Offset(1, 0) = ws.Cells("14, 2")
    
    
    'Workbooks.Open Filename:=strFN
    'ActiveCell.Offset(0, 0).Range("A1").Select
    'ActiveCell.FormulaR1C1 = "='C:\Test_Results\MASTER10142013.xls'!R4C2"
    'ActiveCell.Offset(2, 0).Range("A1").Select
    'ActiveCell.FormulaR1C1 = "='C:\Test_Results\MASTER10142013.xls'!RC+1"
    'ActiveCell.Offset(1, 0).Range("A1").Select
    'ActiveCell.FormulaR1C1 = "='C:\Test_Results\MASTER10142013.xls'!RC+1"
    'ActiveCell.Offset(1, 0).Range("A1").Select
    'ActiveCell.FormulaR1C1 = "='C:\Test_Results\MASTER10142013.xls'!RC+1"
    'ActiveCell.Offset(1, 0).Range("A1").Select
    'ActiveCell.FormulaR1C1 = "='C:\Test_Results\MASTER10142013.xls'!RC+1"
    'ActiveCell.Offset(1, 0).Range("A1").Select
    'ActiveCell.FormulaR1C1 = "='C:\Test_Results\MASTER10142013.xls'!RC+1"
    'ActiveCell.Offset(1, 0).Range("A1").Select
    'ActiveCell.FormulaR1C1 = "='C:\Test_Results\MASTER10142013.xls'!RC+1"
    'ActiveCell.Offset(1, 0).Range("A1").Select
    'ActiveCell.FormulaR1C1 = "='C:\Test_Results\MASTER10142013.xls'!RC+1"
    'ActiveCell.Offset(1, 0).Range("A1").Select
    'ActiveCell.FormulaR1C1 = "='C:\Test_Results\MASTER10142013.xls'!RC+1"
    'ActiveCell.Offset(-9, 1).Range("A1").Select
   
    
End Sub

I have been busy with other projects and am just now looking at this program. Thank you for your assistance and kindness. I just received the book 'EXCEL 2003 Power Programming with VBA' by John Walkenback. I hope this will help me to have a better understanding.

Hi M,

Take the quotes out of those cell references:

ActiveCell = ws.Cells(4, 2)
         ActiveCell.Offset(2, 0) = ws.Cells(6, 2)
    ActiveCell.Offset(3, 0) = ws.Cells(7, 2)
    ActiveCell.Offset(4, 0) = ws.Cells(8, 2)
    ActiveCell.Offset(5, 0) = ws.Cells(9, 2)
    ActiveCell.Offset(6, 0) = ws.Cells(11, 2)
    ActiveCell.Offset(7, 0) = ws.Cells(12, 2)
    ActiveCell.Offset(8, 0) = ws.Cells(13, 2)
    ActiveCell.Offset(9, 0) = ws.Cells(14, 2)

Glad you got it and you're welcome!