Consolidate Excel Information in one e-mail for each user

your FOR loop will send 1 email for each row, so instead,
use the for loop to collect all the emails.

For i = 1 To Range("C5536").End(xlUp).Row
   strTo = strTO & Cells(i, 1).value & ";"
next

THEN, send the 1 email:

Set OutMail = OutApp.CreateItem(0)
'...etc....