Áno dáta sú zoradené podľa emailovej adresy.
Presne tento loop potrebujem. Od začiatku sa nad tým zamýšľam, že prvú adresu porovnam s tou pod tým a text pridam k tomu prvému. Ak sa nezhodujú vytvorí sa další mail a podobne.
Nižšie je kusok kódu, ak to teda pomôže na zaklade tohto kódu mi to posiela každý riadok v jednom maily, to oznamená, jeden človek dostane aj 10 mailov

row_number = 1
lastrow = Sheets1.Cells(Rows.Count, "A").End(xlUp).Row

Do
DoEvents
row_number = row_number + 1
Dim mail_body_message As String
Dim data_replace As String

mail_body_message = Sheets1.Range("A1")
full_name = Sheets1.Range("G" & row_number) & " " & ";" & " " & Sheets1.Range("F" & row_number)
mail_body_message = Replace(mail_body_message, "data_replace", full_name)

Call SendEmail(Sheets1.Range("O" & row_number), "Invitation", mail_body_message)

Loop Until row_number = lastrow

Ďakujem veľmi pekne za pomoc