If im not mistaken the file path is where the error could be is where the backupPath is it may need another \ at the beginning it. Here is the example:
backupPath = "I:\Analytics\ProjetoDiario\BKP" & Format(Now, "yyyy-mm-dd_hh-mm-ss") & "_" & ThisWorkbook.Name