Thank you that worked perfect.

"Gary''s Student" wrote:

This example assumes that the original data is on Sheet1 and the revised
format will be entered in Sheet2:

Sub newlist()
Set w1 = Sheets("Sheet1")
Set w2 = Sheets("Sheet2")
w2.Cells(1, 1).Value = w1.Cells(1, 1).Value
w2.Cells(1, 2).Value = w1.Cells(1, 2).Value
Ide = Cells(1, 1).Value
w1.Activate
n = Cells(Rows.Count, 1).End(xlUp).Row
k = 3
kk = 1
For i = 2 To n
If w1.Cells(i, 1).Value = Ide Then
w2.Cells(kk, k).Value = w1.Cells(i, 2).Value
k = k + 1
Else
kk = kk + 1
k = 3
Ide = w1.Cells(i, 1).Value
w2.Cells(kk, 1).Value = Ide
w2.Cells(kk, 2).Value = w1.Cells(i, 2).Value
End If
Next
End Sub

--
Gary''s Student - gsnu200773


"Tomkat743" wrote:

I AM HAVING TROUBLE TRYING TO FIGURE OUT WHICH FORMULA WOULD WORK BEST FOR
THE FOLLOWING OR IF I NEED TO HAVE VB TO DO THIS. I NEED TO PUT THE DATA FROM
COLUMN B IN THE SAME ROW IF I HAVE MATCHING DATA IN COLUMN A.

7400 1A
7400 2A
7400 3A
7401 1A
7401 2A

RESULT.

7400 1A,2A,3A
7401 1A,2A

OR IT COULD BE IN COLUMNS

7400 1A 2A 3A
7401 1A 2A

EITHER WAY THANKS TO ANYONE THAT CAN GIVE ME AN IDEA.