Bạn thử code này. Nếu chưa đúng thì bạn highlight chỗ sai và chỉ ra kết quả muốn có rồi gửi file lại.
Option Explicit
Sub phanbo()
Dim lr&, lc&, i&, j&, nl&, cl&, c&, num&
Dim rng, res()
Sheets("sheet1").Activate ' chon ten sheet ban dang lam viec
lr = Range("C6").End(xlDown).Row ' dong cuoi...