Với điều kiện "Những sản phẩm giống nhau em sẽ để gần nhau ạ!".
Sub LayDuLieuSangTrangIn()
Dim sArr(), res(), aTong() As Double, hang$
Dim i&, j&, k&, sRow&, sCol&, eRow&
eRow = ShList.Range("C" & Rows.Count).End(xlUp).Row
sArr = Sheets("ShList").Range("A21:J" & eRow + 1).Value
sRow =...