Add rows to a table and add data automatically

Hi There,

I am using this code to add 15 rows each time to a table.

Dim i As Byte
For i = 1 To 10
    ActiveSheet.ListObjects("Table1").ListRows.Add AlwaysInsert:=True
Next i

What I would like to do now is to have it automatically add the numbers 1 to 15 in column A for each row added.

Ask me for a date, start time and end time and add this to each row in column E , G and H

1				01/01/2023	11:00	20:00
2				01/01/2023	11:00	20:00
3				01/01/2023	11:00	20:00

All the way down the 15 rows.

Thank you.