Hello everyone,

First of all, I want to make it clear that I'm not experienced in coding or anything. Whenever I need a code, I usually grab parts from different options in forums to then adjust the whole thing to my needs.

Said that, here is my situation:
I have a Workbook with multiple worksheets. 1 worksheet, called "Activities list" has a table of activities that should be filled by the user. And 12 other worksheets (Months - January to December) containing each 3 different tables that are "reproducing" the data from that first table in the "Activities list" Worksheet.

I've recorded and then manually adjusted a code that adds one row to the bottom of all this tables, but probably because of the way it is written, it's taking around 40 seconds to completely run, which for a user adding multiple rows would be annoying. Could anyone help me in making the code shorter and therefore lighter and quicker to run?

My current code is as it follows:

---

Sub AddRows()
'
If MsgBox("Add new Row?(This can only be undone manually)", vbYesNo) = vbNo Then Exit Sub
Application.ScreenUpdating = False
Sheets("Activities List").Select
Sheets("Activities List").ListObjects("Table37").Range.Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Sheets("January").Select
Sheets("January").ListObjects("Table1").Range.Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Sheets("January").ListObjects("Table2").Range.Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Sheets("January").ListObjects("Table3").Range.Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Sheets("February").Select
Sheets("February").ListObjects("Table4").Range.Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Sheets("February").ListObjects("Table5").Range.Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Sheets("February").ListObjects("Table6").Range.Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Sheets("March").Select
Sheets("March").ListObjects("Table7").Range.Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Sheets("March").ListObjects("Table8").Range.Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Sheets("March").ListObjects("Table9").Range.Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Sheets("April").Select
Sheets("April").ListObjects("Table10").Range.Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Sheets("April").ListObjects("Table11").Range.Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Sheets("April").ListObjects("Table12").Range.Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Sheets("May").Select
Sheets("May").ListObjects("Table13").Range.Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Sheets("May").ListObjects("Table14").Range.Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Sheets("May").ListObjects("Table15").Range.Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Sheets("June").Select
Sheets("June").ListObjects("Table16").Range.Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Sheets("June").ListObjects("Table17").Range.Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Sheets("June").ListObjects("Table18").Range.Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Sheets("July").Select
Sheets("July").ListObjects("Table19").Range.Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Sheets("July").ListObjects("Table20").Range.Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Sheets("July").ListObjects("Table21").Range.Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Sheets("August").Select
Sheets("August").ListObjects("Table22").Range.Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Sheets("August").ListObjects("Table23").Range.Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Sheets("August").ListObjects("Table24").Range.Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Sheets("September").Select
Sheets("September").ListObjects("Table25").Range.Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Sheets("September").ListObjects("Table26").Range.Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Sheets("September").ListObjects("Table27").Range.Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Sheets("October").Select
Sheets("October").ListObjects("Table28").Range.Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Sheets("October").ListObjects("Table29").Range.Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Sheets("October").ListObjects("Table30").Range.Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Sheets("November").Select
Sheets("November").ListObjects("Table31").Range.Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Sheets("November").ListObjects("Table32").Range.Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Sheets("November").ListObjects("Table33").Range.Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Sheets("December").Select
Sheets("December").ListObjects("Table34").Range.Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Sheets("December").ListObjects("Table35").Range.Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Sheets("December").ListObjects("Table36").Range.Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Sheets("Activities List").Select
Range("G2").Select
Application.ScreenUpdating = True
MsgBox "Done! Rows added to this and to all other linked tables in this Workbook"
'
End Sub

----

Thank you very much!