Code gọi thuộc tính định vị Range nhiều quá, 216 lần thay vì chỉ cần 1 lần Set range.
Mõi lần gọi, VBA phải tính lại con trỏ vào range.
For i = 4 To 219
With WorksheetFunction
Cells(i, 5) = .SumIfs(GL.Range("F:F"), GL.Range("i:i"), Cells(2, 5), GL.Range("a:a"), Cells(i, 1))