Macro to put the table title left at each table's row

Hello,

I need a macro that places the value on top of each table in the example, left to the column. A macro is needed because I have a lot of this sheets with a lot of tables vertically ordered. Also all the tables have a different amount of rows.

See the added example with the needed solution.

Thanks in advance

Try:

Sub foo()
    Dim l As Long, s As String
    With ActiveSheet
        For l = 1 To .Cells(Rows.Count, 2).End(xlUp).Row
            If Not .Cells(l, 2).Value = "" Then
                If .Cells(l, 3).Value = "" Then
                    s = .Cells(l, 2).Value
                Else
                    .Cells(l, 1).Value = s
                End If
            End If
        Next l
    End With
End Sub