Estranho que não tenha encontrado, só aqui no fórum há inúmeros de post's sobre essa "ocorrência"

experimente:

enumeraid   
     ActiveCell.Offset(0, 1).Value = CDate(data)
     ActiveCell.Offset(0, 2).Value = CDbl(totalicms)
     ActiveCell.Offset(0, 3).Value = CDbl(totalipi)
     ActiveCell.Offset(0, 4).Value = CDbl(vlrsete)
     ActiveCell.Offset(0, 5).Value = CDbl(vlroito)
     ActiveCell.Offset(0, 6).Value = CDbl(vlrnove)
     ActiveCell.Offset(0, 7).Value = CDbl(vlrdez)

Minha nossa, tão fácil assim e eu quebrando a cabeça com várias formas e fórmulas encontradas na net.

Muito obrigado Reinaldo e colegas do fórum, aprendo muito com vocês.

Abraços.

Dunguinha

Faltou você agradecer ao Reinaldo, clicando na mãozinha.

Favor clicar no link abaixo, para entender como funciona:
viewtopic.php?f=7&t=16757

[]s