After
Code:
.To = Datarange
did you try to add
Code:
.CC = Datarange.offset(,1)