Macro needed to add items to worksheet

[tinker11]

I have a spreadsheet with hundreds of tabs attached. I would like to add some data to each tab. Data would be the same but will change with each tab due to data that is already there. I would like to add this new item after the last item on the page.
see mockup below where the red font I may change with each tab in the spreadsheet. all help is appreciated !

[TABLE="width: 383"]
<colgroup><col width="154" style="width: 116pt; mso-width-source: userset; mso-width-alt: 5632;"> <col width="356" style="width: 267pt; mso-width-source: userset; mso-width-alt: 13019;"> <tbody>[TR]
[TD="width: 154, bgcolor: transparent"]1
[/TD]
[TD="width: 356, bgcolor: transparent"]x
[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"]1[/TD]
[TD="bgcolor: transparent"]xx
[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"]1[/TD]
[TD="bgcolor: transparent"]fake data[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"]1
[/TD]
[TD="bgcolor: transparent"]fake data
[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"]1[/TD]
[TD="bgcolor: transparent"]fake data[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"]12
[/TD]
[TD="bgcolor: transparent"]fake data[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"]4
[/TD]
[TD="bgcolor: transparent"]fake data[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"]#[/TD]
[TD="bgcolor: transparent"]here is where I want to add the new item and qty. [/TD]
[/TR]
</tbody>[/TABLE]

 

[onlyadrafter]

Hello,

Where will the original data be added?

 

[tinker11]

original data(aka fake data in this post) is already on the tab..but each tab has a different number of fake data lines. I would like macro to find last line (in this example qty 4 then "fake data", go down one line and add a qty of 10 and the description "DL-CLIP"
I can't figure out how to macro to go to last line, advance one line, add that data, then go to next tab, go to last line, advance one line, etc..thru entire worksheet.
does this help?

 

[onlyadrafter]

Hello,

This code will copy the bottom row of the current tab to every other tab in the workbook.

Sub COPY_TO_ALL_TABS()
    Application.ScreenUpdating = False
    Rows(Range("A" & Rows.Count).End(xlUp).Row).Copy
    For MY_SHEETS = 1 To ActiveWorkbook.Sheets.Count
        With Sheets(MY_SHEETS)
            If ActiveSheet.Name <> Sheets(MY_SHEETS).Name Then
                .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial (xlPasteAll)
            End If
        End With
    Next MY_SHEETS
    Application.ScreenUpdating = True
End Sub