help with send an Email with Excel VBA Code

Sub sendmail()  
   Dim OutApp       As Object
   Dim OutMail      As Object
   Dim SigString    As String
   Dim Signature    As String
   Dim ws           As Worksheet
   Dim cel          As Range
   Dim LR           As Long




   Set ws = Sheets("MRM")
   With ws
      LR = .Cells.Find("*", .Cells(.Rows.Count, .Columns.Count), SearchOrder:=xlByRows, _
                       SearchDirection:=xlPrevious).Row
      If Not .AutoFilterMode Then
         .Range("A3:P3").AutoFilter
      End If
      .Range("A3:P" & LR).AutoFilter Field:=16, Criteria1:="<>"
      If .Range("P3:P" & LR).SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then
         For Each cel In .Range("P4:P" & LR).SpecialCells(xlCellTypeVisible)
            EmailTo = .Cells(cel.Row, "J").Value
            CCto = .Cells(cel.Row, "K").Value
            Subj = .Cells(cel.Row, "L").Value
            Filepath = .Cells(cel.Row, "M").Value
            msg = .Cells(cel.Row, "N").Value




            With Application
               .EnableEvents = False
               .ScreenUpdating = False
            End With
            Set OutApp = CreateObject("Outlook.Application")
            Set OutMail = OutApp.CreateItem(0)




            SigString = Environ("appdata") & _
                        "\Microsoft\Signatures\mrm.htm"




            If Dir(SigString) <> "" Then
               Signature = GetBoiler(SigString)
            Else
               Signature = ""
            End If
            On Error Resume Next
            With OutMail
               .To = EmailTo
               .CC = CCto
               .BCC = ""
               .Subject = Subj
               .HTMLBody = msg & "<br>" & Signature
               '.body = msg & vbNewLine & vbNewLine & Signature
               ' .Attachments.Add Filepath 'Uncomment this Line if you've added attachments
               .Display   '.Send   'or use .Display
            End With
         Next cel
      End If
      .AutoFilterMode = False
   End With




   On Error GoTo 0
   Set OutMail = Nothing
   Set OutApp = Nothing




   With Application
      .EnableEvents = True
      .ScreenUpdating = True
   End With
End Sub




Function GetBoiler(ByVal sFile As String) As String
   '**** Kusleika
   Dim fso          As Object
   Dim ts           As Object
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
   GetBoiler = ts.readall
   ts.Close
End Function