Adding CC Address And Body To SendMail Function?

I have the below code of which I would like to addresses added to the CC list Also, Would it possible to add a range as the body? E.G:

.CCaddress = "somebody@mail.com"
.CCaddress ="somebody.else@mail.com"

Body text = Range("A1"& "" &"B1")

Code that need the above inputted:

With ActiveWorkbook
.SendMail Recipients:=Array("steve.howard@kuehne-nagel.com"), _
Subject:="610 Cambridge " & Format(Date, "yyyymmdd") & " " & "Counts"
[add cc address + body]
.Close SaveChanges:=False
End With