キーワードでデータを抽出

Dim LastRow As Long
Dim r As Integer

'クリア
Sheets("まとめ").Range("A5").CurrentRegion.Offset(1, 0).ClearContents

'まとめシートのタイトル行を取得する
r = Sheets("まとめ").Range("B5").Row

'まとめシートへデータを書き写す
LastRow = Worksheets("データ").Cells(Rows.Count, 1).End(xlUp).Row

Dim i As Integer
　For i = 2 To LastRow
　　If Sheets("データ").Range("A" & i).Value = _
　　　Sheets("まとめ").Range("C2").Value Then
　　　'タイトル行に１を足す→タイトル行の下に入力
　　　r = r + 1
　　　Sheets("まとめ").Range("B" & r & ":" & "D" & r).Value = _

　　　　Sheets("データ").Range("A" & i & ":" & "C" & i).Value
　　End If
Next