VBA Find Matches in 1 column, compile from second column

Hello,

Please see attached worksheet.

I need VBA to look at column C. For all entries in column c that are the same, look at corresponding rows in column D, Paste all of those from column D into 1 cell in column F (first row of the associated column C entries), entries to be separated by a semicolon. I typed a couple entries in column F with the results that I want.

Thanks so much!

If it would be easier, the results could go in the last row of the C, instead of the first row

Whoops, I realized that I said columns C and D in my question but in my example sheet column D is blank.

So it should be columns C & E

Found a solution, thanks!

Option Explicit
Sub test()
Dim dic As Object
Dim Lr&, cell As Range, st As String
Set dic = CreateObject("scripting.dictionary")
Lr = Cells(Rows.Count, "A").End(xlUp).Row
    For Each cell In Range("A1:A" & Lr)
        If Not dic.exists(cell.Value) Then
            st = cell.Offset(0, 1).Value
            dic.Add cell.Value, st
        Else
            st = st & "; " & cell.Offset(0, 1).Value
            dic(cell.Value) = st
        End If
        If cell.Offset(1, 0).Value <> cell.Value Then cell.Offset(0, 2).Value = st
    Next
End sub