UsedRange in vba macro : Instead of UsedRange, how do I copy the exact cell range? Thanks 

    Sub export_excel_to_word()
        Set obj = CreateObject("Word.Application")
        obj.Visible = True
        Set newObj = obj.Documents.Add
        ActiveSheet.UsedRange.Copy
        newObj.Range.Paste
        Application.CutCopyMode = False
        obj.Activate
        newObj.SaveAs Filename:=Application.ActiveWorkbook.Path & "\" & ActiveSheet.Name
    End Sub


