Excel VBA Button Copy WorkSheet to New Word Doc

Question

The code below copies a table I have in a work sheet and pastes it in a new Microsoft Word Document. The only issue is it cuts off half the table when pasted in the word document. Any suggestions? Thanks.

Sub btnExport()
Dim objWord As Word.Application
Range("C2:D60").Copy

Set objWord = CreateObject("Word.Application.14")
With objWord
    .Documents.Add
    .Visible = True
    .Selection.Paste
End With
End Sub

Sheet I'm using

Answer 1

You can use the Word AutoFit command to make the table fit into the document. I've included code to swap the orientation to Landscape as well but this may not be necessary.

Sub btnExport()
    Dim objWord As Word.Application
    Range("C2:D60").Copy ' you should name the worksheet as well here really

    Set objWord = CreateObject("Word.Application.14")
    With objWord
        .Documents.Add
        .ActiveDocument.PageSetup.Orientation = 1 'wdOrientLandscape
        .Visible = True
        .Selection.Paste
        .ActiveDocument.Tables(1).AutoFitBehavior 2 'wdAutoFitWindow
    End With
End Sub