VBA Excel на Mac: печать / экспорт в PDF

Question

У меня есть этот огромный файл Excel с макросами, он отлично работает в Windows, но в MacOs выдает ошибку 1004. Может ли кто-нибудь помочь мне перевести следующий код, чтобы он работал на Macos?Или на самом деле, кто-то может перевести его для работы в Excel (Macos), потому что я абсолютно не понимаю кодирования.Если кто-то может помочь мне с этим, мне не нужно устанавливать Windows на мой Mac :)

Sub SaveAsPdf(train)
    'On Error Resume Next
    'Windows(ThisWorkbook.Name).Activate

    Application.Goto reference:="date"
    days = Year(ActiveCell.Value) & Month(ActiveCell.Value) & Day(ActiveCell.Value)

    Application.Goto reference:="path"
    Path = ActiveCell.Value
    If Right(Path, 1) <> "\" Then
        Path = Path & "\"
    End If

    ws = "Train " & train & " Production schedule"

    Sheets(ws).Select
    Time_Stamp = Format(Now(), "yyyymmdd_HhNn")

    TNimi = Path & ws & Time_Stamp & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    TNimi, Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

    ws = "General Schedule " & train
    fname = "General Schedule Train " & train
    Sheets(ws).Select
    Time_Stamp = Format(Now(), "yyyymmdd_HhNn")

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    Path & fname & "_" & Time_Stamp & ".pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

    Sheets("Break Plan Input").Select
End Sub

Sub SaveQSheet(train)
    Sheets("Break Plan Input").Select
    Application.Goto reference:="date"
    days = Year(ActiveCell.Value) & Month(ActiveCell.Value) & Day(ActiveCell.Value)

    Application.Goto reference:="path"
    Path = ActiveCell.Value
    If Right(Path, 1) <> "\" Then
        Path = Path & "\"
    End If
    Time_Stamp = Format(Now(), "yyyymmdd_HhNn")
    Sheets("Inspection and Sold Info").Select
    Sheets("Inspection and Sold Info").Copy
    Range("A2").Select
    ActiveWorkbook.SaveAs Filename:=Path & "Train " & train & " Inspection and Sold Info " & Time_Stamp & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
    Sheets("Break Plan Input").Select
End Sub

Путь определен