Macro em VBA que some números em formato hora e exiba o valor total das horas.

Galera, sem mistério, algo simples.. Estou fazendo uma macro aqui básica porém quando vou somar os valores em formato hora (00:35 poe exemplo) o resultado total é 0. Creio que a macro não está entendendo os valores, segue esboço do meu código:
Sub somavalores()
Dim i As Date
Dim n As Date
Dim soma As Integer
n = CInt(InputBox("Entre com o total de numeros = "))
i = 1
soma = 0
Do While i < n
soma = soma + Cells(i, 1)
i = i + 1
Loop

Cells(n + 1, 1) = soma

Sei que é algo mt simples mas isso é só a primeira etapa de um progama que tenho que desenvolver e gostaria de ajuda.