excelden word e bağ yapıştırırken boş hücreleri es geçme???

[kokotuna]

merhaba arkadaşlar!!! Sorunumu ekte olan word dosyasında dilim döndüğü kadar anlatmaya çalıştım... Umarım anlayabilir ve yardımcı olabilirsiniz!!! Şimdiden zaman ayıran arkadaşlara teşekkürler....

 

[hamitcan]

Bu şekilde deneyin.

Sub AKTAR()
s = WorksheetFunction.CountA(Range("e5:e65536")) + 4
Range("c4:j" & s).Copy
Set objword = CreateObject("Word.Application")
objword.Visible = True
Set MyDoc = objword.Documents.Add(DocumentType:=wdNewBlankDocument)
objword.Selection.Paste
Application.CutCopyMode = False
End Sub