Sắp xếp lại vùng dữ liệu (1 người xem)

[huunhanltqb]

Mình đang code để tính khối lượng phục vụ cho công việc nhưng đang vướng mắc do dữ liệu đang lộn xộn bây giờ nhờ mọi người giúp đỡ viết code để sắp xếp lại.
file yêu cầu đi kèm và yêu cầu có trong file

 

[nhapmon]

như vậy là công việc bạn cần là ở giữa 2 hàng là có một hàng trống phải ko?
bạn chép đoạn code này chạy thử coi có được ko
Sub SapXep()
Dim lr As Integer
Sheets(1).Select
lr = Cells(Rows.Count, "D").End(xlUp).Row + 5
For i = 7 To lr
If Range("D" & i) <> "" And Range("D" & i + 1)<> "" Then
Range("D" & i + 1).Select
Selection.EntireRow.Insert
End If
Next

End Sub

 

[huunhanltqb]

như vậy là công việc bạn cần là ở giữa 2 hàng là có một hàng trống phải ko?
bạn chép đoạn code này chạy thử coi có được ko
Sub SapXep()
Dim lr As Integer
Sheets(1).Select
lr = Cells(Rows.Count, "D").End(xlUp).Row + 5
For i = 7 To lr
If Range("D" & i) <> "" And Range("D" & i + 1)<> "" Then
Range("D" & i + 1).Select
Selection.EntireRow.Insert
End If
Next

End Sub

Cám ơn bạn nhiều lắm để mình thử xem