Private Sub CommandButton1_Click()
Dim the_sheet As Worksheet
Dim table_list_object As ListObject
Dim table_object_row As ListRow
Set the_sheet = Sheets("Analysis")
Set table_list_object = the_sheet.ListObjects(1)
Set table_object_row = table_list_object.ListRows.Add
last_row_wo_data = the_sheet.Range("A33546").End(xlUp).Row
the_sheet.ListObjects(1).Range.Cells(last_row_wo_data - 1, 1).Activate
table_object_row.Range(1, 1).Value = ActiveCell.Value + 1
Dim the_sheet2 As Worksheet
Dim table_list_object2 As ListObject
Dim table_object_row2 As ListRow
Set the_sheet2 = Sheets("query-4")
Set table_list_object2 = the_sheet2.ListObjects(2)
Set table_object_row2 = table_list_object2.ListRows.Add
last_row_wo_data2 = the_sheet2.Range("I33546").End(xlUp).Row
the_sheet2.ListObjects(2).Range.Cells(last_row_wo_data2 - 1, 1).Activate
table_object_row2.Range(1, 1).Value = ActiveCell.Value + 1
End Sub