Here is version 2, which also pastes "-1" into the message body.
Sub sendMail()
Sheets("Total Hours by Manager").Select
Dim objOutlook, objMsg, objNameSpace, objFolder, strOutput, strSubject, StrMsg
StrMsg = ActiveSheet.Range("C5:E150").Copy
StrSbj = "Bi Weekly Time Reporting"
Const...