VBA：複数ブックの範囲データを集計データの最終行へ転記する方法

Question

VBA初心者です。
指定のフォルダ内のブックから集計ブックの最終行へ転記を行うことができるデータを作成したいです。

単一セルに入力されたデータの都度更新される最終行への転記はできたのですが、
指定の範囲に入力されたデータを集計ブックへ転記することができません。
（指定フォルダ内の約10データの指定範囲10行5列程度（B10：F20）のデータを抜き出したい）

Sub toi2()
    Dim folder As String
    Dim file As String
    Dim book As Workbook
    Dim lngEndRow As Long
    Dim LastRow As Long
        
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = True Then
            folder = .SelectedItems(1)
        End If
    End With
    
    file = Dir(folder & "*.xlsx")
    
    Do While file <> ""
        
        Set book = Workbooks.Open(folder & "\" & file, UpdateLinks:=0) '指定フォルダ内のファイルを順番に開く
        
            With ThisWorkbook.Worksheets("集計（問1）")  '転記先シートを指定
                IngEndRow = .Cells(Rows.Count, 1).Row
                LastRow = .Cells(IngEndRow, "A").End(xlUp).Row  '最終行を取得
                                                            
                .Range(Cells(LastRow + 1, 1), Cells(LastRow + 1, 11)).Value = book.Worksheets("集計用").Range("B10:F20").Value  'ここがわかりません
               
            End With
        
        file = Dir()
                
        book.Close
    Loop

End Sub

.Range(Cells(LastRow + 1, 1), Cells(LastRow + 1, 11)).Value = book.Worksheets("集計用").Range("B10:F20").Value

この部分がうまくいかず、エラーが出てしまいます。

調べてみたのですが、解決方法が見つからず、いろいろ試してますがなかなかうまくいきません。
どう直したらいいか教えていただきたいです。
よろしくお願いいたします。

Answer 1

こうかな？

.Range(.Cells(LastRow + 1, 1), .Cells(LastRow + 1, 11)).Value = book.Worksheets("集計用").Range("B10:F20").Value

Comments

[s1510]

完全に"."を見落としておりました…。
無事最終行へ転記できました！

ありがとうございましたm(__)m