Runtime error 1004 range of object with VBA code for copying all worksheets to word

Below is the code I copied and tried to modify to select only the info from cells A1 to the last cell in column G. I get a runtime error 1004 range of object worksheet failed error message. It looks like I need assistance in the selection of the range of information line of code. I can't use xltoright because some of the cells are blank in the last row.

Thanks for looking at this.

Sub CopyWorksheetsToWord()
' requires a reference to the Word Object library:
' in the VBE select Tools, References and check the Microsoft Word X.X object library
Dim wdApp As Word.Application, wdDoc As Word.Document, ws As Worksheet
Application.ScreenUpdating = False
Application.StatusBar = "Creating new document..."
Set wdApp = New Word.Application
Set wdDoc = wdApp.Documents.Add
For Each ws In ActiveWorkbook.Worksheets
With ActiveSheet
Application.StatusBar = "Copying data from " & ws.Name & "..."
ws.Range("A1:G1", Range("A1").End(xlDown).Range("G1").End(xlDown)).Copy
wdDoc.Paragraphs(wdDoc.Paragraphs.Count).Range.InsertParagraphAfter
wdDoc.Paragraphs(wdDoc.Paragraphs.Count).Range.Paste
Application.CutCopyMode = False
wdDoc.Paragraphs(wdDoc.Paragraphs.Count).Range.InsertParagraphAfter
' insert page break after all worksheets except the last one
If Not ws.Name = Worksheets(Worksheets.Count).Name Then
With wdDoc.Paragraphs(wdDoc.Paragraphs.Count).Range
.InsertParagraphBefore
.Collapse Direction:=wdCollapseEnd
.InsertBreak Type:=wdPageBreak
End With
End If
End With
Next ws
Set ws = Nothing
Application.StatusBar = "Cleaning up..."
' apply normal view
With wdApp.ActiveWindow
If .View.SplitSpecial = wdPaneNone Then
.ActivePane.View.Type = wdNormalView
Else
.View.Type = wdNormalView
End If
End With

Shelton,
I changed the range to your suggestion and the output displays just first two rows of each worksheet, from cells A1:G2.
Cindy

Morning Shelton,
This latest range selection you suggested will work.

The number of rows in each worksheet varies. And the last column of information needed is in G. Thank you. Have a great day.
Cindy