DAta transfer

Hi ,

I have the two files. in BOOK1.xlsone file I have data in table format with certain colums....
i want tranfer table data to check.xls file to paste in certain cells.

i created the macro, however i'm getting error meesge as Runtime error 9, Subscript out of range.
please help me out.

Sub chekcon()
Dim check, book1 As Workbook
Dim wk1, wk2 As Worksheet
Dim i As Integer
Dim lstrw As Integer
Set book1 = ThisWorkbook
Set check = Workbooks("Z:\66205_TEMPLATES_20996\Check Control Processing Form-XX-XX-XXXX.XLS")
Set wk1 = book1.Worksheets("sheet1")
Set wk2 = check.Worksheets("sheet1")
lstrw = book1.Cells(65530, 1).End(xlUp).Row
For i = 2 To lstrw
book1.Cells(i, 1).Value = check.Cells(3, 3).Value
book1.Cells(i, 2).Value = check.Cells(11, 5).Value
book1.Cells(i, 3).Value = check.Cells(1, 4).Value
book1.Cells(i, 4).Value = check.Cells(1, 10).Value
book1.Cells(i, 5).Value = check.Cells(13, 5).Value
book1.Cells(i, 5).Value = check.Cells(3, 6).Value
book1.Cells(i, 6).Value = check.Cells(11, 10).Value
book1.Cells(i, 7).Value = check.Cells(3, 11).Value
book1.Cells(i, 8).Value = check.Cells(43, 4).Value
book1.Cells(i, 9).Value = check.Cells(45, 4).Value
fn = book1.Cells(i, 10).Value
check.SaveAs Filename:="Z:\66205_TEMPLATES_20996\" & fn
Next i
End Sub