Существует ли способ выполнить компоненты ActiveX в Firefox с помощью плагина?

Проблема в переменной CellRef . Сначала вы написали 2 буквы L , а затем всего лишь 1 буква L .

Всегда используйте команду Option Explicit в верхней части вашего модуля. Это заставляет вас объявлять все переменные и избегать такого рода ошибок.

Правильный код:

Sub sum_first_digit()

    Dim colnum As Integer
    Dim sumfirst As Integer
    Dim cellref As Variant 'Change this type to another more specific (int, long or string)

    sumfirst = 0

    For colnum = 2 To 7 Step 1
        cellref = Cells(5, colnum)
        If IsNumeric(Left(cellref , 1)) Then sumfirst = sumfirst + Left(cellref , 1)
    Next colnum

    Range("C9").Value = sumfirst

End Sub

Ошибка в том, что переменная ** celref ** не объявлена ​​и, следовательно, пуста. Слева ("", 1) тоже пусто. Таким образом, вы пытаетесь добавить текст к числу, и поэтому типы несовместимы.