Sub hiendulieu()
Dim ws as worksheet
Dim lastrow as Double
Set ws = Thisworkbook.sheets("Tinhtrang")
Lastrow = Excel.Worksheetfuntion.CountA(ws.Range("A:A"))
If Lastrow = 1 then Lastrow = 2
With lb_inout
.ColumnCount = 13
.ColumnHeads = True
.ColumnWidths =...