Move Data In Column To Single Row For Each Unique OSIS Number

I need to move data in column E to single row (as text string is fine as I can Text to column later) for each unique OSIS number. VB should copy columns A-D to sheet 2 then move each row data for unique OSIS to column E as one long text string separated by common. I can then parse out using text-to-column. Below is the VB code which stops on: txt = txt & Sheet1.Range("E" & x) & ","

I want to be able to look up class code and score by OSIS either using vlookup or in Access with OSIS as primary key.

Public Sub processR2C()
pos = 1
txt = ""
For x = 2 To 99999

txt = txt & Sheet1.Range("E" & x) & ","
If Sheet1.Range("A" & x) Sheet1.Range("A" & x + 1) Then
Sheet2.Range("A" & pos) = Sheet1.Range("A" & x)

[Code] .........

Here is sample data

A B C D E

229647698 ABBASI AMJAD 2L4 ESS21QQR,40

[Code] ..........