Thank you very much for your help. The codes are working great! By the way, I have make some slight changes to the codes so that it suits into the reporting requirements.
Regarding my third question in the previous post where the blank rows to be deleted, I looked through some of the posts here regarding the deletion of blank rows but can only find the codes for deleting hidden rows.
I have modified some codes but it was not working as intended.
Dim iRow As Long
.Calculation = xlCalculationManual
.EnableEvents = False
.ScreenUpdating = False
For iRow = .Row + .Rows.Count - 1 To .Row Step -1
If Rows(iRow) = "" Then Selection.EntireRow.Delete
.Calculation = xlCalculationAutomatic
.EnableEvents = True
.ScreenUpdating = True
Also, I have recorded a macro for blank rows deletion but it will only delete the specific rows recorded in the macro everytime although the blank rows are different.
I have attached the file for your perusal. In the file, I would like to have all the blank rows after Row 47 to be deleted but the calculation in Row 60 should remained and moved up accordingly when the blank rows are deleted.
Here is the file http://www.speedyshare.com/files/29469575/DPS_Shipment_Packing_V2.3.xls
Once again, thank you very much for your time and patience in helping me with this.