overføre data fra et ark til et andet ark

Jeg har en fil der hedder stam.
Jeg har en del data i arket INDLÆS.
Disse data skal jeg nu have overført til en anden fil STAMOPLYSNINGER_STAM

Jeg har tidligere fået hjælp til at opdatere data fra ark til ark.
http://www.eksperten.dk/spm/854679

Nu har jeg så forsøgt at kombinere den kode med at overføre data til en anden fil.

Men det går galt i denne linje:

For t = 1 To rk1

Er der nogen der kan fortælle mig hvad der er galt eller evt. komme med et andet bud på hvordan jeg kan klare problemet.
Er det en omskrivning af koden giver jeg gerne ekstra points.





Sub eksporter_data()
Dim RK As Long, Data As Variant
Dim wb As Workbook
Application.ScreenUpdating = False
   
    Set wb = Workbooks.Open("c:\stamoplysninger_stam.xlsm", True, False)
   
        With ThisWorkbook.Sheets("indlæs")
            RK = .Range("a65536").End(xlUp).Row              ' finder nedeste linje
            Data = .Range(.Range("A1"), .Range("J" & RK))    ' området data er fra linje 3 og nedefter
        End With
       
        With wb.Sheets("navneliste")
          Range("A1:J10000").Clear
            RK = .Range("a65536").End(xlUp).Row + 0                                ' finder nederste linje og stiller sig i linjen nedenfor
            .Range(.Range("A" & RK), .Range("J" & RK + UBound(Data, 1) - 1)) = Data  ' indsætter data fra andet ark
        End With
     
Set sh1 = wb.Sheets("navneliste")
Set sh2 = wb.Sheets("data")
rk1 = sh1.Cells(900, 1).End(xlUp).Row
rk2 = sh2.Cells(900, 1).End(xlUp).Row

For t = 1 To rk1
On Error Resume Next
RK = sh2.Range("A1:A" & rk2).Find(sh1.Cells(t, 1).Value, LookIn:=xlValues).Row
sh2.Cells(RK, 2) = sh1.Cells(t, 2).Value
sh2.Cells(RK, 3) = sh1.Cells(t, 3).Value
sh2.Cells(RK, 4) = sh1.Cells(t, 4).Value
sh2.Cells(RK, 5) = sh1.Cells(t, 5).Value
sh2.Cells(RK, 6) = sh1.Cells(t, 6).Value
Next
   
Application.DisplayAlerts = False
wb.Save
wb.Close
Application.DisplayAlerts = True

End Sub