You didn't answer the final question of my first post or the final question of Andrew's post. Both questions were aimed at finding out exacyly where on the "Final sheet" you wanted the info pasted. I have assumed then that you wanted it pasted starting at cell A6. If that is not what you want, try adjusting the value of "fr" in the code and/or the column letter in the "Destination" line of code.
Also, you said there were 12 packages but you only gave us the row references for packages 1 and 2 and no way to determine the others dynamically, so you would need to fill out the "PackageRows" array in the code to accomodate the other 10 packages.
To implement the code below, right click the "Final sheet" name tab and choose "View Code". Then copy and paste the code below into the main right hand pane that open in the VB window. Close the VB window and make selections in your drop down.
If it doesn't work, please try to provide details about what way it failed and also post the formula you have in cell E5.
<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Worksheet_Calculate()<br> <SPAN style="color:#00007F">Dim</SPAN> fr <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br> <SPAN style="color:#00007F">Dim</SPAN> lr <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br> <SPAN style="color:#00007F">Dim</SPAN> PackageNo <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Integer</SPAN><br> <SPAN style="color:#00007F">Dim</SPAN> bs <SPAN style="color:#00007F">As</SPAN> Worksheet<br> <br> <SPAN style="color:#00007F">Set</SPAN> bs = Sheets("Base sheet")<br> PackageRows = Array(, "82:116", "119:159") <SPAN style="color:#007F00">'<--Fill out for all 12 Packages</SPAN><br> fr = 6<br> lr = UsedRange.Row + UsedRange.Rows.Count - 1<br> <SPAN style="color:#00007F">If</SPAN> lr < 6 <SPAN style="color:#00007F">Then</SPAN> lr = 6<br> Rows(fr & ":" & lr).ClearContents<br> <SPAN style="color:#00007F">With</SPAN> Range("E5")<br> <SPAN style="color:#00007F">If</SPAN> Left(.Value, 8) = "Package " <SPAN style="color:#00007F">Then</SPAN><br> PackageNo = Val(Mid(.Value, 9, 2))<br> Intersect(bs.Columns("A:M"), bs.Rows(PackageRows(PackageNo))).Copy _<br> Destination:=Cells(fr, "A")<br> <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN><br> <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br> <SPAN style="color:#00007F">Set</SPAN> bs = <SPAN style="color:#00007F">Nothing</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>