Hỏi về sửa code bị lỗi khi điền công thức

[khoa289]

Chào anh chị.
Khi lập trình điền công thức tại cột L thì code chạy chậm và thông báo lỗi, nhưng khi bấm "End" thì điền công thức tự động. Chỉnh sửa code thế nào để sửa lỗi này. Cám ơn

 

[Ba Tê]

Chào anh chị.
Khi lập trình điền công thức tại cột L thì code chạy chậm và thông báo lỗi, nhưng khi bấm "End" thì điền công thức tự động. Chỉnh sửa code thế nào để sửa lỗi này. Cám ơn
View attachment 252366

Chạy thử Sub này coi sao?

Public Sub Gpe()
Dim I As Long, K As Long
For I = 1988 To 4 Step -1
    If Range("B" & I) = Empty Then
        K = K + 1
    Else
        Range("L" & I) = "=SUM(R[1]C[-1]:R[" & K & "]C[-1])"
        K = 0
    End If
Next I
End Sub