This function will put your structure in cell C with value of column A
Use it like : =mytracks(A2)
Setup of the cells : you need to allow the text to flow to another line.
If you want to use result, you need to paste as only text in D for example
Function mytracks(mycd As Range) As String
Dim mywb As Workbook, mywstracks As Worksheet
Dim mytrackno As String, notracks As Long
Dim looptracks As Long


Set mywb = ActiveWorkbook
Set mywstracks = mywb.Worksheets("TRACKS")
mytrackno = mycd.Value


notracks = mywstracks.Range("A" & Rows.Count).End(xlUp).Row
mytracks = "<table>" & Chr(10) & "<tbody>" & Chr(10)


If mytrackno = vbNullString Then
    mytracks = "no ID specified ..."
    Exit Function
Else
    For looptracks = 2 To notracks
        If mytrackno = mywstracks.Cells(looptracks, 1) Then
            mytracks = mytracks & "<tr>" & Chr(10) & "<td>" & mywstracks.Cells(looptracks, 2) & "</td>" & _
            Chr(10) & "<td>" & mywstracks.Cells(looptracks, 3) & "</td>" & Chr(10) & "</tr>" & Chr(10)
        End If
    Next looptracks
End If
mytracks = mytracks & "</tbody>" & Chr(10) & "</table>"
End Function
Charlize