Email cell information

I am somewhat new using VB codes. I am trying to set up a small spreadsheet for inventory,that way when a certain range falls below a reorder point, an email will be generated to reorder more.The only thing I need to know is how to email the contents of cell (example D2 thru G2)? The code I included is sending the email but only sends the amount the inventory is changed to.
Below is what I have so far.
Thanks for any help

[vba]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$H$2" Then
If Target.Value < 6 Then
If MsgBox("Confirm Reorder of Tooling", vbQuestion Or vbYesNo) = vbYes Then
EmailNotify "Out of stock cutters ", Target.Value
End If
End If
End If
End Sub
Public Sub EmailNotify(SubjectText As String, BodyText As String)
Dim appOL As Object
Dim objMail As Object
Const EMAIL_ADDRESS = "Email address.com"

Set appOL = CreateObject("Outlook.Application")
Set objMail = appOL.CreateItem(0) ' olmailitem=0

With objMail
.Recipients.Add EMAIL_ADDRESS
.Subject = reorder
.Body = BodyText
.Send
End With

Set objMail = Nothing
Set appOL = Nothing
End Sub[/vba]

Re: Email cell information

Derk,
Thanks, I tried that code, however I rec'd a pop up,with the right information that I was looking for, but instead of the pop up notification is there a way to include the info in the body of the email? Or did I use the code in the wrong way?
Thanks for any help.
Scott