VBA code to loop and extract data

[ten1jmj]

I have another sheet were a user selects a name. Is it possible to have a macro loop through the data and return the event type listed below the employee along with the date. This is just a snippet of the data. An employee will have multiple event types. I'm not sure if this is even possible with my current data arrangement. Any help would be greatly appreciated.

 

[ExcelGzh]

Assign a range name to the row with the names in it, eg NameRowRange

Dim NameColumn as Integer
Dim RowCounter as Integer
Dim EventType as String

'Use Range.Find to identify the column the selected name is in
NameColumn = Range("NameRowRange").Find (<reference>)

'Search for a non-blank cell in the identified column
RowCounter = Range("NameRowRange).Row+1
While Len(Cells(RowCounter, NameColumn)) = 0 and RowCounter <=Range("NameRowRange).Row+100 '(or however many rows there are)
  EventType = Cells(RowCounter, NameColumn)
  RowCounter = RowCounter + 1
Wend

'The While/Wend loop will exit when Cells(RowCounter, NameColumn) has a length greater than zero.

'Then do something with EventType