Sub tinhsh()
Dim Rng1 As Range: Dim eR As Long, jJ As Integer
Sheet2.Select
For Each Rng1 In ActiveSheet.Range("b11", [b65536].End(xlUp))
Rng1.Offset(, 14).Value = Rng1.Offset(, 4).Value + Rng1.Offset(, 6).Value - _
Rng1.Offset(, 8).Value - Rng1.Offset(, 10).Value - Rng1.Offset(, 12).Value
For jJ = 5 To 15 Step 2
Rng1.Offset(, jJ).Value = Rng1.Offset(, 3).Value * Rng1.Offset(, jJ - 1).Value
Rng1.Offset(1, jJ - 1).Value = Application.WorksheetFunction.Sum(Range([b11], _
[b11].End(xlDown)).Offset(0, jJ - 1))
Rng1.Offset(1, jJ).Value = WorksheetFunction.Sum(Range([b11], [b11].End(xlDown)).Offset(0, jJ))
Next jJ
Next
eR = Range("b65536").End(xlUp).Row
1 Cells(eR + 6, 3).FormulaR1C1 = "=NgLB"
2 Cells(eR + 6, 14).FormulaR1C1 = "=ThuTruong"
For jJ = 11 To eR + 1
FormatBorders Cells(jJ, "A").Resize(, 17)
Next jJ
End Sub