Please help. I need a macro to assign names to tables in one Worksheet (Sheet1) in one workbook.

In the Sheet1 I have several tables, each with a title (ex; "BPL Metrics (AM-REG)_SBRM_Reg" in Bold), and under each table the data, which end with a blank row at the end of each table before the next table’s title. Tables shows going down, all starting Titles in column "A" (samples below), and each table can have from 1 up 30 columns and rows from 1 up to 25 rows, that may change every week.
I need a macro to:
First identify the title of each table in Sheet1 (Titles will not change, and will be listed in “Sheet2” (see below), e.x; go to cell A1 where “BPL Metrics 1” is,
Second, identify the last active cell of that table (to highlight the information of the table under each title, rows and columns), e.x; go to cell D4 where “999.9” is (this table range will be A1..D4).
Third, assign to this table range as name, its corresponding title, e.x; Name of table range: “BPL Metrics 1”

Then if the table title change to the next table, then repeat the process for the new table, and so on (next table range will be A6..E9, and its name will be “BPL Metrics 2”

There are about 209 tables, each with a different title, and all of them in only one sheet. Please remember, every week, the number of rows and columns may change in any table, but it will always have a blank row under each table.
“Sheet1”
A B C D E
1 BPL Metrics 1
2 Channel BranchPriority BBRegion1 PM_2ConRev
3 SBRM B1 East -B1 469.1
4 SBRM B1 West -B1 999.9
5
6 BPL Metrics 2
7 Channel BranchPriority BBRegion1 PM_2ConRev PM_1ConRev
8 WHLS WS East -WS 145.9 143.2
9 WHLS WS West -WS 114.1 113.7
10
11 BPL Metrics 3
12 Channel BBRegion PM_2ConRev
13 WHLS East 574.51
14 WHLS East 603.68
15 WHLS East 276.76
16

“Sheet2”
BPL Metrics 1
BPL Metrics 2
BPL Metrics 3
Thanks a lot