Tại sao không nhập liệu theo chiều dọc rồi muốn cái gì theo trình tự thì Sort cho thuận tiện mà lại phải chèn dòng.
Chép Sub này vào Module:
Public Sub GPE()
Dim Rng As Range, R As Long
Set Rng = Sheet1.Range("B1:B7")
With Sheets("XUAT")
R = .Range("C60000").End(xlUp).Row + 1
.Cells(R, 3).Value = Rng(1, 1).Value
.Cells(R, 4).Value = Rng(2, 1).Value
.Cells(R, 5).Value = Rng(3, 1).Value
.Cells(R, 6).Value = Rng(4, 1).Value
.Cells(R, 8).Value = Rng(5, 1).Value
.Cells(R, 9).Value = Rng(6, 1).Value
.Cells(R, 11).Value = Rng(7, 1).Value
End With
Rng.ClearContents
Set Rng = Nothing
MsgBox "Xong.", , "GPE"
End Sub
