Visual Basic - Juntar variables para enviar correo

Asunto = "Proveedor creado -s."

Destinatario = cell.Offset(0, -5).Value

Correo = cell.Value  AQUI DEBERIA TENER OTRO VALOR ADICIONAL que seria la fila de al lado, para que el correo automatico sea enviado simultaneamente a los 2 dentinatarios

VENDOR = cell.Offset(0, 2).Value

Asunto = "Proveedor creado -s."

Destinatario = cell.Offset(0, -5).Value

Correo = cell.Value         ' --- AQUI DEBERIA TENER OTRO VALOR ADICIONAL que seria la fila de al lado, para que

                            '     el correo automatico sea enviado simultaneamente a los 2 dentinatarios

VENDOR = cell.Offset(0, 2).Value

Destinatario = Range("A1") & ";" & Range("A2")

Correo = cell.Value  (actual)

Sub EnviarEmail()

Dim OutlookApp As Outlook.Application

Dim MItem As Outlook.MailItem

Dim cell As Range

Dim Asunto As String

Dim Correo As String

Dim Destinatario As String

Dim Saldo As String

Dim Msg As String

    '

    Set OutlookApp = New Outlook.Application

    '

    For Each cell In Range("I3:I200") ((en este rango esta la lista de los proveedores, y necesito agregar la del solicitante que esta en la celda B.))

        Asunto = "Proveedor creado -."

        Correo = cell.Value

        VENDOR = cell.Offset(0, 2).Value