How do i send a selection of specific cells with the code below?

Public Sub SendEmail ()

    ThisWorkbook.HasRoutingSlip = True 

    With ThisWorkbook.RoutingSlip 

.Recipients = Array ("xxxx") 'Digite os ids de e-mail separados por vírgula

.Subject = "xxx"' Digite o assunto aqui

.Message = "xx" 'Digite sua mensagem aqui 

.AttachWorkbook = False

   End With

ThisWorkbook.Route 

End Sub