Как я могу игнорировать ячейки в диапазоне для вложения электронной почты?

Question

Мне нужна одна вещь, исправленная для этой вещи. У меня в основном есть куча файлов PDF, у которых есть идентификационный номер, и другие файлы PDF, которые содержат один и тот же идентификационный номер вместе с другим. Первый идентификационный номер может отображаться в 10 различных PDF-файлах, поэтому, как я его настроил, первый PDF-файл находится в столбце D, а затем для любого другого файла, содержащего идентификационный номер из D, будет отображаться в E, F, G , H et c.

В настоящий момент любые ячейки, которые не содержат данных, будут останавливать работу кода. Как я могу заставить его пропускать или игнорировать пустые ячейки ??

Sub SendMail()

ActiveWorkbook.RefreshAll

Dim objOutlook As Object
Dim objMail As Object
Dim ws As Worksheet
Dim fileName As String
Dim cell As Range

Set objOutlook = CreateObject("Outlook.Application")
Set ws = ActiveSheet

For Each cell In ws.Range("A2", ws.Cells(Rows.Count, "A").End(xlUp))


Set objMail = objOutlook.CreateItem(0)


    With objMail
        .To = cell.Value
        .Subject = cell.Offset(0, 1).Value
        .Body = cell.Offset(0, 2).Value
        .Attachments.Add cell.Offset(0, 3).Value & "\" & cell.Offset(0, 5).Value & ".pdf"
        .Attachments.Add cell.Offset(0, 3).Value & "\" & cell.Offset(0, 6).Value & ".pdf"
        .Attachments.Add cell.Offset(0, 3).Value & "\" & cell.Offset(0, 8).Value & ".pdf"
        .Attachments.Add cell.Offset(0, 3).Value & "\" & cell.Offset(0, 9).Value & ".pdf"
        .Attachments.Add cell.Offset(0, 3).Value & "\" & cell.Offset(0, 10).Value & ".pdf"
        .Attachments.Add cell.Offset(0, 3).Value & "\" & cell.Offset(0, 11).Value & ".pdf"
        .Attachments.Add cell.Offset(0, 3).Value & "\" & cell.Offset(0, 12).Value & ".pdf"
        .Attachments.Add cell.Offset(0, 3).Value & "\" & cell.Offset(0, 13).Value & ".pdf"
        .Attachments.Add cell.Offset(0, 3).Value & "\" & cell.Offset(0, 14).Value & ".pdf"
        .Attachments.Add cell.Offset(0, 3).Value & "\" & cell.Offset(0, 15).Value & ".pdf"
        .Display
    End With


    Set objMail = Nothing
Next cell


    Set ws = Nothing
    Set objOutlook = Nothing



End Sub