Copy Multiple Ranges from Excel to Outlook

Wouldn't this be sufficient

Sub Mail_Selection_Range_Outlook_Body()
  With Application
    .EnableEvents = False
    .ScreenUpdating = False

    With Workbooks.Add
      .Sheets(1).Range("D20:E28") = ThisWorkbook.Sheets(1).Range("D20:E28").Value
      .Sheets(1).Range("D40:E58") = ThisWorkbook.Sheets(1).Range("D40:E58").Value
      .SaveAs "C:\test.htm", xlHtml
      .Close False
    End With

    With CreateObject("Outlook.Application").CreateItem(0)
      .To = "randall.hudgins@slk.com"
      .Subject = "Trading Recap"
      .htmlbody = "C:\test.htm"
      .Send
    End With

   .EnableEvents = True
   .ScreenUpdating = True
  End With
End Sub