Xuất tất cả dữ liệu có trong excel sang 1 file word (2 người xem)

[khicona10]

Vấn đề là với đoạn câu em coppy được trên diễn đàn và chỉnh sửa lại nó chỉ xuất 1 trang ở 1 hàng

Sub Excel_Word()    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    On Error Resume Next
    With CreateObject("Word.Application")
        .Visible = True
        For Each Ten In Range([b4], [b65536].End(xlUp))
            If Ten > 0 And Ten.Font.ColorIndex <> 3 Then  '
                doc = .Documents.Open(ThisWorkbook.Path & "\e.doc")
                .Selection.Find.Execute [b3], , , , , , , , , Ten, 2
                .Selection.Find.Execute [c3], , , , , , , , , Ten(1, 2), 2
//phần chưa sửa
[COLOR=#ff0000]                For Each cls In [c3:c11][/COLOR]
[COLOR=#ff0000]                    If cls > 0 Then .Selection.Find.Execute cls, , , , , , , , , cls(1, 2), 2[/COLOR]
                Next
                End If
        Next
        .Quit
    End With
End Sub

Nếu em muốn xuất tất cả các giá trị ở ô hàng 8 trở về dưới với các giá trị tìm được trong hàng và tất cả phải nằm trong 1 file word gồm nhiều trang với các giá trị của các từ hàng 8 trở về dưới.
Em mới học vba để áp dụng cho công việc nên mong anh chị và các thầy cô giúp đỡ!