.Body = "Рот бомбил" & Chr(10) & "С Уважением, ВВП"

lLastR = Cells(Rows.Count, 6).End(xlUp).Row

lLastR = Range("G" & Rows.Count).End(xlUp).Row

...
     For lr = 5 To lLastR
     aa_ = Cells(lr, 7)
     Set objMail = objOL.CreateItem(0)
         With objMail
             .To = aa_  
...

Sub Рассылка_писем()
Dim objOL As Object
Dim objMail As Object
Dim sTo As String
Dim lr As Long, lLastR As Long

Set objOL = CreateObject("Outlook.Application")

lLastR = Cells(Rows.Count, 7).End(xlUp).Row
'цикл от второй строки(начало данных с адресами) до последней ячейки таблицы
For lr = 5 To lLastR
aa_ = Cells(lr, 7)
Set objMail = objOL.CreateItem(0)
With objMail
.To = aa_ 'вставляются значения ячеек - email адреса
.CC = "" 'указывается получатель копии письма
.Body = "" 'указывается текст письма"
.Subject = "" 'указывается тема письма
.Attachments.Add "" 'указывается полный путь к файлу
.Send
End With
Next lr

Set objMail = Nothing
Set objOL = Nothing
End Sub