Hente specifikke rækker (Kabbak den kan du hurtigt klare)

Det første af nedenstående kode er ok..

Jeg skal bare have den til at vælge fra C46 til N46 på det ark jeg kopiere fra og indsætte det i C46 til N46 i det andet ark.

Det eneste jeg får overført er True.. Hvorfor kopiere den ikke dataene??

Samt hvorfor sætter den ikke dataene in i række 46 kolonne c og ud efter?


Sub GetAllData()
    Dim FS As FileSearch
    Dim FilePath As String, FileSpec As String
    Dim i As Long
    Dim v As Variant
    Dim rTarget As Long
    Dim ToSheet As Worksheet
    Dim Data As Variant
    '******************************
    FilePath = "J:\Test"        'Stien hvor arkene skal hente fra.
    FileSpec = ".xls"
    Set ToSheet = ThisWorkbook.Worksheets("sheet1") 'OVerføres til et bestemt ark
    '******************************
    'find excel filerne
    Set FS = Application.FileSearch
    With FS
        .LookIn = FilePath
        .Filename = FileSpec
        .SearchSubFolders = False          'skal underfoldere også søges
        .Execute
        If .FoundFiles.Count = 0 Then
            MsgBox ("Ingen filer fundet")
            Exit Sub
        End If
    End With
    'hent data
    Application.ScreenUpdating = False
    For i = 1 To FS.FoundFiles.Count
        rTarget = ToSheet.Range("C46:N46").Row
        Workbooks.Open Filename:=FS.FoundFiles(i), ReadOnly:=True ' åbnes som skrivebeskyttet
        With Worksheets("sheet1")              ' Navnet på arket der hentes fra
            Data = .Range("C46:n46").Copy
            ToSheet.Cells(rTarget, "c") = Data
        End With
        ActiveWorkbook.Close False
    Next
    Application.ScreenUpdating = True
End Sub