I already have some VBA in the spreadsheet so I don't want to mess it up and I am afraid
to try some results I've found on the web elsewhere that might mess it up, which is why I'm
posting my specific issue.

The existing spreadsheet is designed to do the following:

We have a mixed box of product, so the spreadsheet is used to sort the product from
the box by removing each piece and scanning the barcode of the product (spreadsheet is
manufacturer specific).

Anyways, the barcode is 23 Characters, within the barcode itself lies the Part Number
(PN) of this particular mfr.

The scan is then broken down utilizing 2 adjacent cells to break it down to show the
PN:

Column B uses =LEFT(A2,8) to show only the first 8 characters of the scan
Column C uses =RIGHT(B2,5) to show only the last 5 digits of the previous result (the PN).

Within the spreadsheet both columns B & C forumla's are repeated as shown above all the
way through to row 5001 (to ensure the sheet is long enough for many items).

Next there is a VBA code that automatically sorts the scanned barcodes in column A so
that if multiple scans result in the same PN in column C, then they would
all be grouped together.


Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        Range("A1").Sort Key1:=Range("A2"), _
          Order1:=xlAscending, Header:=xlYes, _
          OrderCustom:=1, MatchCase:=False, _
          Orientation:=xlTopToBottom


    End If
End Sub

All this works fine except I want to take it one step further and have an additional
column which has the actual value pasted of all of column C's results in Column D
(D2:D5001).

This way the user can utilize Column D to copy and paste from it into a program that
will search our database for that number so we can either add quantities to our
DBs inventory and/or add a new item and then input the quantities to our inventory.