VBA to save document as pdf in a desktop folder on a MAC

[Hermac]

Hello,
I wrote this code on a computer with Windows 10 where it worked perfectly.
I 'd like to have it working on a Mac , but it fails on the red lines.
Can anybody help? Thank you very much in advance.
Herman

Sub BoekFactuur()
Dim Msg As String, FilNam As String, Last As Range
Set Last = Sheets("FacList").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
With Sheets("Factuur")
Last = .[E7]
Last.Offset(0, 1) = .[E4]
Last.Offset(0, 2) = .[E6]
Last.Offset(0, 3) = .[B4]
Last.Offset(0, 4) = .[E23]
Last.Offset(0, 5) = .[E24]
Last.Offset(0, 6) = .[E25]
Last.Offset(0, 7) = .[E26]
Last.Offset(0, 8) = .[E27]
Last.Offset(0, 9) = .[E28]
Last.Offset(0, 10) = .[E29]
Last.Resize(1, 3).NumberFormat = "0"
Last.Offset(0, 1).NumberFormat = "dd/mm/yy;@"
Last.Offset(0, 4).Resize(1, 7).NumberFormat = "#,##0.00"
End With
Sheets("Factuur").Activate
FilNam = "C:\Users\Herman\Desktop\VerkoopFacturen" & "F" & [E7] & "K" & [E6]
[B1:F30].ExportAsFixedFormat Type:=xlTypePDF, Filename:=FilNam & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False


End Sub