Nhờ các anh chị sửa lỗi giúp em đoạn code vba lấy dữ liệu ạ.

[hahavuive]

Xin chào các anh chị trong group, đoạn code này lần trước em được một anh trong group giúp đỡ em, nội dung code như sau:
Sub GetValueFibo()
Sub GetValueFibo() Dim res(1 To 4, 1 To 6) As Variant Dim res2(1 To 4, 1 To 2) As Variant Dim i As Long Dim j As Long Dim k As Long Dim r As Long Dim eRow As Long Dim eCol As Long k = 4 eCol = Range("AAH41").End(xlToLeft).Column For j = eCol To 1 Step -9 eRow = Cells(1000000, j).End(xlUp).Row For r = eRow To 15 Step -1 If CStr(Cells(r, j)) = "live" Then res(k, 1) = Cells(r, j - 6) res(k, 2) = Cells(r, j - 5) res(k, 3) = Cells(r, j - 4) res(k, 4) = Cells(r, j - 3) res(k, 5) = Cells(r - 1, j - 1) res(k, 6) = Cells(r, j - 2) res2(k, 1) = Cells(39, j - 6) res2(k, 2) = Cells(39, j - 5) i = 1 For i = 1 To k - 1 Next i If k = 1 Then Exit For k = k - 1 End If Next r If r >= 15 Then Exit For Next j Range("G2").Resize(4, 6) = res Range("P2").Resize(4, 2) = res2 End Sub

Logic của code này là lấy 4 dữ liệu cuối cùng trong bảng nếu cột cuối nó là "live" và sau khi em thêm 2 bảng trống, có công thức nhưng khi không có dữ liệu các ô trả là rỗng "" thì code trên nó không hoạt động nữa, Em xin phép nhờ các anh chị xem giúp em và sửa giúp em ạ, e có đính kèm đoạn file và code ở đây, Trong file em đó để kết quả đúng phải trả về. Mong các anh chị xem giúp em, em xin cảm ơn.