Ошибка несоответствия типов - VBA

Формулировка задачи:

Sub AleVToS1k()
Dim L()
Dim M()
    n = 8
    ReDim L(n)
    ReDim M(n)
    For i = 1 To n
        L(i) = Worksheets("Сведения").Range("B2:B10")
        M(i) = Worksheets("Сведения").Range("D4:D12")
    Next i
Dim Q(1 To 8)
For i = 1 To n
Q(i) = L(i) + M(i) (!!!Type mismatch!!!)
Next i
For i = 1 To n
Range("F2:F10") = Q(i)
Next i
End Sub

Почему ошибка несоответствия типов? Хочу посчитать сумму двух массивов. Буду благодарен за объяснение Спасибо

Решение задачи: «Ошибка несоответствия типов»

textual
                            Листинг программы 
                        
                            Dim L(1 to 9) as Double
Dim M(1 to 9) as Double