Boa noite pessoal, estou com um erro quando rodo uma aplicação que fiz para gerar folha de ponte e recibo de recebimento de ticket. Aqui na minha máquina roda sem problemas, uso office 2010, porém fui tentar rodar em outra maquina com office 2013 e ocorreu um erro na macro. Aparece um erro, conforme mostra o anexo. Alguém pode me ajudar sobre este erro? Abaixo o código que estou usando:

Sub Ponto()
    Workbooks.Open ("D:RHLista Funcionarios.xlsx")
    Windows("Lista Funcionarios.xlsx").Activate
    Sheets("Lista").Activate
    Sheets("Ticket").Visible = True
    Sheets("Ticket1").Visible = True
    Sheets("lista").Select
    Range("A2:A201").Select
    Selection.Copy
    Sheets("Ticket").Select
    Range("A2").Select
    ActiveSheet.Paste
    Range("B2").Select
    ActiveSheet.Paste
    Sheets("Lista").Select
    Range("b2:b201").Select
    Selection.Copy
    Sheets("Ticket").Select
    Range("C2").Select
    ActiveSheet.Paste
    Sheets("Ticket").Activate
    Sheets("Ticket").Select
    Range("A2:E201").Select
    Selection.Copy
    Sheets("Ticket1").Activate
    Sheets("Ticket1").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Rows("1:1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$F$201").AutoFilter Field:=1, Criteria1:="="
    Rows("11:11").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Selection.AutoFilter
    Range("A1").Select
    n = 1
    Set ws = ActiveSheet
    'Cria-se um objeto Aplicação Word
    Set appWord = CreateObject("Word.Application")
    'É recomendável deixar a linha abaixo para evitarmos processos pendurados
    'em caso de erros. Se estiver seguro do código, você pode remover a linha.
    appWord.Visible = True
    With ws
        'Obtém última linha e última coluna da Planilha
        rLast = .Cells(.Rows.Count, "A").End(xlUp).Row
        cLast = .Cells(1, .Columns.Count).End(xlToLeft).Column
    For r = 2 To rLast
            Set doc = appWord.Documents.Open(Filename:="D:RHRecibo Ticket.docx")
            'Substitui os Indicadores pelos valores da Planilha
    For c = 1 To cLast
            doc.Bookmarks(.Cells(1, c)).Range.Text = .Cells(r, c)
    Next c
            n = n + 1
            'Salva e fecha o Documento
            doc.SaveAs2 Filename:="D:RHTicket" & " RECIBO TICKET - " & Range("a" & n).Value, FileFormat:=wdFormatXMLDocument
            doc.Close
            Next r
    End With
    Windows("Lista Funcionarios.xlsx").Activate
    Sheets("Ticket").Activate
    Sheets("Ticket").Visible = False
    Sheets("Ticket1").Visible = False
    Sheets("Lista").Activate
    Windows("Lista Funcionarios.xlsx").Activate
    Sheets("Lista").Activate
    Range("a1").Select
    ActiveWorkbook.Save
    ActiveWorkbook.Close True
    Windows("RH - Ticket.xlsm").Activate
    ActiveWorkbook.Save
    MsgBox "Arquivos criados com êxito. Verifique na pasta D:RHArquivos."
End Sub