Hello naleeshg24,
I haven't tested this code but try it and let me know the results.
Option Explicit
Sub test()
Dim ol As Object
Dim mi As Object
Dim doc As Object
Dim msgbox As String
Const olMailItem As Long = 0
Set doc = CreateObject("Word.Application")
Set ol = CreateObject("Outlook.Application")
Set mi = ol.CreateItem(olMailItem)
mi.Display
mi.To = "ABC.COM"
mi.Subject = "movies"
Set doc = mi.GetInspector.WordEditor
msgbox = vbNewLine & vbNewLine & "Please Reply with question."
doc.Range(0, 0).InsertAfter msgbox
msgbox = vbNewLine & vbNewLine & "Please see chart Below:" & vbNewLine & vbNewLine
Sheet1.ChartObjects(1).Chart.ChartArea.Copy
doc.Range(0, 0).Paste
Application.CutCopyMode = False
doc.Range(0, 0).InsertAfter msgbox
Sheet1.Range("A1").CurrentRegion.Copy
doc.Range(1, 1).Paste
Application.CutCopyMode = False
msgbox = "Hi Team," & vbNewLine & vbNewLine & "Please see table below:" & vbNewLine
doc.Range.InsertBefore Text:=msgbox
End Sub