Boa tarde a todos;

Eu tenho uma planilha simples financeira, e estou tentando criar a função SOMASES no VBA, para fazer a soma entre duas planilhas diferentes e por categoria.

Exemplo:

Na planilha Resumo de Gastos, as categorias são: Higiene Pessoal, vestuário.

Na planilha Abril, são os meus gastos detalhados no mês por categoria ( Higiene Pessoal, vestuário).

Estou tentando fazer no VBA a soma de gastos de Higiene pessoal (Planilha Resumo de gastos), quantas vezes no mês de Abril Gastei com Higiene Pessoal (Planilha Abril).

Sub SomarCategorias()

On Error GoTo Erro

Dim Linha As Double

Linha = 3

With Planilha1

Do
Linha = Linha + 1
.Cells(Linha, 2).Value = WorksheetFunction.SumIfs(Planilha6.Range("H9:H9000000"),(Planilha6.Range("C9:C9000000").Cells(linha,3).Text) 

Loop Until .Cells(Linha + 1, 1).Value = Empty

End With

Exit Sub
Erro:
MsgBox "Erro!", vbCritical, "SomarCategoria"

End Sub

Está dando Erro na parte que está em negrito.

Segue abaixo a planilha em anexo.

Desde já, obrigado a todos.