Скопируйте Excel только видимые ячейки и вставьте в Word как изображение

Question

Я пытаюсь сделать снимок диапазона только видимых ячеек. Это изображение должно быть вставлено в текстовый документ.

Set obj = CreateObject("Word.Application")
obj.Visible = True
Set newObj = obj.Documents.Add
ActiveSheet.Range("B18:G41").Select
'Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
obj.Activate
newObj.Range.PastePicture
Application.CutCopyMode = False
obj.Activate
newObj.SaveAs Filename:=Application.ActiveWorkbook.Path & "\" & ActiveSheet.Name