Sub cSheets()

Dim cSheet As Word.Document

Set cSheet = Word.Application.Documents.Add

ThisWorkbook.Worksheets(1).UsedRange.SpecialCells(xlCellTypeVisible).Select

With Selection
    .Range("F1, G1, J1, M1").EntireColumn.Copy
End With

cSheet.Paragraphs(1).Range.PasteSpecial (Paste)

Word.Application.Visible = True
Word.Application.Activate



End Sub