I have some data in an excel document that I copy from excel and paste into word. It is easy to paste this excel data into a new, blank word document with the below code.
Sub Test()
Dim FName As String
Dim FPath As String
Sheets("Sheet1").Range("A3:G80").CopyPicture Appearance:=xlScreen, Format:=xlPicture
With CreateObject("Word.Document")
.Application.Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
Placement:=wdInLine, DisplayAsIcon:=False
FPath = "C:\Users\kl\Desktop"
FName = Sheets("Sheet1").Range("A6").Text
.SaveAs2 Filename:=FPath & "\" & FName
.Close 0
End With
End Sub
However, I would like to paste into a word document that already has some text and a border (see attached). But it won't work because of the text at the top. That is why I am wondering if I can direct my cursor to be in a position lower than the text up top so the excel data will paste.