Exceli word aktarma dağınık berbat atıyor

[denksal123]

Arkadaşlar exceli word açtırıyorum ancak sayfa düzeni bozuk nasıl yapabiliriz?

 

[denksal123]

Sub Düğme1_Tıklat()
Set word = CreateObject("Word.Application")
word.Documents.Add
word.Visible = True
[Sayfa1!A1:G30].Copy
word.Selection.PasteExcelTable False, False, False
Application.CutCopyMode = False
End Sub


hata nerde ?