Как удалить пустые значения в столбце в Excel VBA?

Итак, у меня есть таблица с адресами электронной почты и контактным лицом. Не у всех контактных лиц есть адрес электронной почты. Я хочу отфильтровать пустые значения столбца электронной почты.

Вот мой code VBA

Однако я все еще получаю отображение электронной почты с пустой строкой электронной почты в Outlook, прежде чем я могу ее отправить. Я просто хочу отправлять электронные письма только с адресом электронной почты.

Sub SendMultipleEmails() 

Dim OutApp As New Outlook.Application 

Dim OutMail As MailItem 

lr = Cells(Rows.Count, "B").End(xlUp).Row 
' Since B is the second row and this list is complete
msg_1 = "To PRotect the world from devastation?" & vbLf & vbLf 


For r = 2 To lr 'To ignore the header

    If Range("A" & r).Value <> "" then Set OutMail = OutApp.CreateItem(olMailItem) 

     

    With OutMail 

        .To = Range("A" & r).Value 

        .Subject = "Team Rocket Chant" 

        .Body = msg_1

             

        .CC = Range("C" & r).Value 

        .Display

    End With 

Next r 

 

Set OutMail = Nothing 

Set OutApp = Nothing 
End Sub