Erro em tempo de execucao '1004'

Amigos está aparecendo esse erro quando tento aplicar esse Macro na minha  Planilha
Desde já agradeço.

ERRO EM TEMPO DE EXECUCAO '1004'


If shtPainel.Range("Receitas") = "" Then

shtDados.Cells(linha, "C") = shtPainel.Range("Despesas").Value
shtDados.Cells(linha, "D") = "Despesas"
Else
shtDados.Cells(linha, "C") = shtPainel.Range("Receitas").Value
shtDados.Cells(linha, "D") = "Receitas"
End If
shtDados.Cells(linha, "E") = shtPainel.Range("Valor").Value

If shtPainel.Range("Mes") = "" Then
shtDados.Cells(linha, "F") = MonthName(Month(Now))
Else
shtDados.Cells(linha, "F") = LCase(shtPainel.Range("Mes").Value)
End If
If shtPainel.Range("Ano") = "" Then
shtDados.Cells(linha, "G") = Year(Now)
Else
shtDados.Cells(linha, "G") = shtPainel.Range("Ano").Value
End If
shtDados.Cells(linha, "H") = Format(Now, "dd/mm/yyyy")
'CODIGO FINALIZADO COM SUCESSO


End Sub

Olá...boa noite.

O MaximoAccess, destina-se a MsAccess e seus afins e não ao MsExcel.

Sugiro a busca de um fórum próprio para isso.

Grato.