I would like to hire an Excel Expert

We run a Mac environment and I have created a VBA to convert a worksheet to pdf and then send to email however I keep getting 2 errors, one being a print error the other a run-time error 1004. The VBA program is as follows:- Sub AttachActiveSheetPDF() Dim IsCreated As Boolean Dim i As Long Dim PdfFile As String, Title As String Dim MailApp As Object Dim SendTo As String ' Not sure for what the Title is Title = "PORegister" ' Define PDF filename PdfFile = [login to view URL] i = InStrRev(PdfFile, ".") If i > 1 Then PdfFile = Left(PdfFile, i - 1) PdfFile = PdfFile & "_" & [login to view URL] & ".pdf" [login to view URL] Type:=xlTypePDF, Filename:="ICS Australia \ pdfFile", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False ' Use already open Mail if possible On Error Resume Next 'Set MailApp = GetObject(, "[login to view URL]") 'If Err Then Set MailApp = CreateObject("[login to view URL]") IsCreated = True 'End If '[login to view URL] = True On Error GoTo 0 SendTo = [login to view URL]("D9").Value ' Prepare e-mail with PDF attachment With [login to view URL](0) ' Prepare e-mail .Subject = "Purchase Order" .To = SendTo .CC = "accounts@[login to view URL]" .Body = "Hi," & vbLf & vbLf _ & "The report is attached in PDF format." & vbLf & vbLf _ & "Regards," & vbLf _ & [login to view URL] & vbLf & vbLf .[login to view URL] PdfFile ' Try to send On Error Resume Next .Display [login to view URL] = True If Err Then MsgBox "E-mail was not sent", vbExclamation End If On Error GoTo 0 End With ' Quit Mail if it was created by this code 'If IsCreated Then [login to view URL] ' Release the memory of object variable Set MailApp = Nothing End Sub