Vlookup not working

VLOOKUP will only return 1 match, so not best suited for looking up multiple matches.

This will loop through each row in the table and display matches. I still think you ColOffset is incorrect as it currently returns the Code rather than Room

Dim Result As Variant
For Each R In Range("Table").Rows
   Result = Application.VLookup(Name, R, ColoffSet, False)
   If Not IsError(Result) Then
        MsgBox Result
    End If
Next R

I don't see how you are defining range T so just went with message box.