Sub SendEmail()
Set olApp = CreateObject("outlook.application")
Dim olMail As Outlook.MailItem
Dim Cel As Range
For Each Cel In Range("A2:A143")
If Len(Cel) Then
Set olMail = olApp.CreateItem(olMailItem)
With olMail
.To = Cel.Value
.Subject = Range("C2")
.Body = Cel.Offset(0, 1).Text
.Send
End With
End If
Next Cel
End Sub