ERRO EM TEMPO DE EXECUÇÃO '1004' ERRO DE DEFINIÇÃO DE APLICATIVO OU DE DEFINIÇÃO DE OBJETO

[jumbizinho]

ERRO É ESSE: 

 

ActiveCell.Offset(1, 0).Select
        ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
        id = ActiveCell.Value
        ActiveCell.Offset(0, 1).Value = data
        ActiveCell.Offset(0, 2).Value = horario
        ActiveCell.Offset(0, 3).Value = disc
        ActiveCell.Offset(0, 4).Value = abrev
        ActiveCell.Offset(0, 5).Value = cat
        ActiveCell.Offset(0, 6).Value = subt
        ActiveCell.Offset(0, 7).Value = ativ
        ActiveCell.Offset(0, 8).Value = pagin
        ActiveCell.Offset(0, 9).Value = pagfim
        ActiveCell.Offset(0, 10).Value = tempo
        ActiveCell.Offset(0, 12).Value = acertos
        ActiveCell.Offset(0, 13).Value = erros
        ActiveCell.Offset(0, 14).Value = coment
        ActiveCell.Offset(0, 15).FormulaLocal = "=SE(E([HORA DO DIA]-[TEMPO DE ESTUDO]>=TEMPO(0;0;0);[HORA DO DIA]-[TEMPO DE ESTUDO]<=TEMPO(5;59;59));" & """MADRUGADA""" & ";SE(E([HORA DO DIA]-[TEMPO DE ESTUDO]>=TEMPO(6;0;0);[HORA DO DIA]-[TEMPO DE ESTUDO]<=TEMPO(11;59;59));" & """MANHÃ""" & ";SE(E([HORA DO DIA]-[TEMPO DE ESTUDO]>=TEMPO(12;0;0);[HORA DO DIA]-[TEMPO DE ESTUDO]<=TEMPO(16;59;59));" & """TARDE""" & ";" & """NOITE""" & ")))"
        ActiveCell.Offset(0, 16).FormulaLocal = "=ano([DATA])"
        ActiveCell.Offset(0, 17).FormulaLocal = "=TEXTO([DATA];" & """mmm""" & ")"
        ActiveCell.Offset(0, 18).Value = finalizado
        ActiveCell.Offset(0, 19).Value = videoin
        ActiveCell.Offset(0, 20).Value = videofim
        ActiveCell.Offset(0, 21).FormulaLocal = "=dia([DATA])"
        ActiveCell.Offset(0, 22).FormulaLocal = "=INT(([DATA]-inicio)/7)+1"

 

 

O ERRO, QUANDO DEPURO, ESTÁ COM SETA NO QUE FOI GRIFADO. 

 

ALGUÉM ME AJUDE????????

[Alyson Ronnan Martins]

Boa noite @jumbizinho

Eu tentei simular a formula usada no VBA mais parece estar errada