VBA マクロについて VBA マクロについて助けてください。 同一内容で添付フ...

VBA マクロについて

VBA マクロについて助けてください。

同一内容で添付ファイルが異なるメールを一括で作成しようとマクロを作成したのですが、確認頂けないでしょうか。

マクロ①
Enum 列
企業名 = 2
氏名
宛先
件名
添付ファイル
End Enum
Option Compare Text
Private Sub CommandButton1_Click()

Dim ol As New Outlook.Application
Dim m As MailItem
Dim maxrow: maxrow = Range("b4").End(xlDown).Row
Dim oftfile As String
ChDrive "C:\"
ChDir "C:\Users\AA\Desktop\ﾒｰﾙ一括作成\"
oftfile = Application.GetOpenFilename("テンプレート,*.oft", 1, "テンプレートの選択")
If oftfile = "False" Then
Exit Sub
End If

For i = 5 To maxrow
Set m = ol.CreateItemFromTemplate(oftfile)
On Error GoTo Err
m.To = Cells(i, 列.宛先).Value
m.Subject = Cells(i, 列.件名).Value
m.Attachments.Add "C:\Users\AA\Desktop\ﾒｰﾙ一括作成\添付ファイル\" & Cells(i, 列.添付ファイル).Value
m.HTMLBody = Replace(m.HTMLBody, "□□", Cells(i, 列.企業名).Value)
m.HTMLBody = Replace(m.HTMLBody, "●●", Cells(i, 列.氏名).Value)
m.SaveAs "C:\Users\AA\Desktop\ﾒｰﾙ一括作成\作成メール\" & Cells(i, 列.企業名).Value & "_" & Cells(i, 列.氏名).Value & ".msg"
Next i

MsgBox "ﾒｰﾙの作成が終了しました。", vbOKOnly + vbInformation
Exit Sub
End Sub

マクロ②
Private Sub CommandButton2_Click()

Dim i As Long, buf As String
Dim NM As String, r As Long
Const Path As String = "C:\Users\AA\Desktop\ﾒｰﾙ一括作成\添付ファイル\"
r = 5
i = 5
Do While Range("b" & r).Value <> ""
NM = Range("b" & r).Value
buf = Dir(Path & "*" & NM & "*.*")
Do While buf <> ""
Range("F" & i).Value = buf
i = i + 1
buf = Dir()
Loop
r = r + 1
Loop

End Sub

やりたいこと
１．マクロ②を使用して企業名の入った添付ファイルを自動抽出しているが、対象の添付ファイルがない場合、空欄にしておきたい。
２．添付ファイル名が空欄のものについては、メールを作成しないようにしたい。エラー表示もしない。

見よう見まねで作ったマクロなので、ここからどのように修正すればよいか教えてください。