VBA: Error 13, no coinciden los tipos

Tengo conocimientos muy básicos de vba pero por una tarea tuve que hacer un programa. Al momento de compilar me sale que no coinciden los tipos en "c/n" siendo n="6" y c="c".

Sub LeerDatos(Rn, c, n, n1, n2, AlargExac)
Rn = Range("C3")
c = Range("C4")
n = Range("B7")
n1 = Range("B8")
n2 = Range("B9")
AlargExac = Range("D13")
End Sub
Sub Macro1()
Dim contador As Integer
Dim Rn1, Alarg, P, L, E As Variant
Call LeerDatos(Rn, c, n, n1, n2, AlargExac)
contador = 0
Suma = 0
Do
Rn1 = Rn - (c / n)
Alarg = P * L / (n * E * PI * Rn1 ^ (2))
Suma = Suma + Alarg
Rn = Rn1
contador = contador + 1
Loop Until (contador = n)
End Sub

Agradecería mucho si pudieran decirme como corregirlo, lo más rápido posible.