Office: (Office Version unbekannt) Outlook-Kalendereintrag erzeugen

Hallo zusammen,
ich bin neu hier und habe nicht viel Ahnung von VBA in Excel. Ein Modul in VBA habe ich mir mithilfe einer YT-Anleitung erstellt. Aus dem Inhalt verschiedener Zellen in Zeile 2 wird ein Outlook-Kalendereintrag erzeugt. Das funktioniert auch prima. Wie stelle ich es an, dass ich diesen Eintrag aus jeder Zeile der Excel-Datei erzeugen kann? Danke für Eure Hilfe :-)

Code:

Sub Outlook_Termin()
'Outlook Bibliothek aktivieren
'Variablen dimensionieren
Dim oApp As New Outlook.Application
Dim oTermin As Outlook.AppointmentItem
Set oTermin = oApp.CreateItem(olAppointmentItem)

'Termin erstellen
With oTermin
    '.Display
    .Subject = Tabelle1.Range("AC2").Value
    .Location = Tabelle1.Range("AD2").Value
    .RequiredAttendees = Tabelle1.Range("O2").Value
    '.OptionalAttendees
    .Start = Tabelle1.Range("N2").Value
    .Duration = 60
    .Body = "Thema Schnelllauftore" & Chr(10) & Chr(10) & B2 & Chr(10) & C2 & Chr(10) & D2 & Chr(10) & E2 & " " & F2 & Chr(10) & Chr(10) & G2 & " " & H2 & " " & I2 & Chr(10) & J2 & Chr(10) & M2 & Chr(10)
    .Save
    
End With
'Variablen leeren
Set oApp = Nothing
Set oTermin = Nothing

End Sub

VG
Bernd