Dữ liệu mới code đơn giản hơn nhiều
Sub ABC()
Dim res(1 To 4, 1 To 2), eCol&, eRow&, j&, k&, r&
k = 4
eCol = Range("AAA14").End(xlToLeft).Column
For j = eCol To 1 Step -8
eRow = Cells(1000000, j).End(xlUp).Row
For r = eRow To 15 Step -1
If Cells(r, j) = "live" Then...