Ошибка 1004 «Ошибка приложения или объекта»

Question

У меня есть фрагмент кода, который иногда вызывает ошибку VBA 1004 «Ошибка приложения или объекта». Код:

ToleranzString = "=COUNTA(R[-1]C[3]:R[-1]C[3])"

Весь код:

 With myArea
            With .Worksheet.Range(.Cells(1, COLIDX_MESSUNG_1), .Cells(1, COLIDX_MESSUNG_1 + noOfVal - 1))
                If .NumberFormat <> Parameter.NumberFormat Then .NumberFormat = Parameter.NumberFormat
            End With

            If .Cells.Item(2, 4) <> 0 Or noOfVal > 0 Then
                ToleranzString = "=COUNTA(R[-1]C[3]:R[-1]C[" & VBA.Format$(POS_TR_DATEN + Me.Datenbereich.Columns.Count) & "])"
            Else
                ToleranzString = "=COUNTA(R[-1]C[3]:R[-1]C[3])"
            End If
           .Cells.Item(2, PosFormelSub1).Formula = ToleranzString

, где myArea - объект Excel.Range.

Ошибка возникает после 2-й оценки листа, заполненного данными. Может кто-нибудь дать совет о том, как отладить такую ​​проблему или что может быть основной причиной.