Hi eed,
Try the following macro:
Sub eedCombiningRelatedRecordsIntoOne()
'http://www.vbaexpress.com/forum/showthread.php?t=719
Dim TopDocID As Range, DocID As Range, Mtgs As String, RowsToDel As Range, rHgt As Double
For Each DocID In Range("A3", Range("A65536").End(xlUp))
If DocID <> DocID.Offset(-1, 0) Then
Set TopDocID = DocID
Mtgs = DocID.Offset(0, 2)
rHgt = DocID.RowHeight
Else
Mtgs = Mtgs & vbLf & DocID.Offset(0, 2)
rHgt = rHgt + DocID.RowHeight
If RowsToDel Is Nothing Then
Set RowsToDel = DocID.EntireRow
Else
Set RowsToDel = Union(RowsToDel, DocID.EntireRow)
End If
End If
If DocID <> DocID.Offset(1, 0) Then
TopDocID.RowHeight = rHgt
TopDocID.Offset(0, 2).WrapText = True
TopDocID.Offset(0, 2) = Mtgs
End If
Next
RowsToDel.Delete shift:=xlUp
End Sub
This assumes your data starts in Cell A3 and the docIDs are in column A. Let us know if you need any help!
Matt