Add specific text at the end of all tabs

[kriti_kostas]

I want to add a specific text at the end of every line in an excel with many tabs.
Tabs have different amount of lines and are random so I need to check if is empty.
Any idea how to succeed with VBA

 

[Joe4]

Welcome to the Board!

Can you please provide more details?
So, you said each tab may have a different number of rows. That is fine.
However, what about columns?
What are we adding and where?
Will we be adding a new column, and adding something on to the last column?

An actual example of what you are trying to do may help clarify things.

 

[kriti_kostas]

Hello.
Sorry for not being clear.

1. At the moment I don't care about the amount of columns.
2. There are excels with 40-50 tabs (worksheets) ... There are different rows in each tab... Other have 40,50,70 etc.
3. I want at the end of each worksheet (when finish all written rows) leave two blank rows and add a text (is a remark) ...(text is the same in all worksheets).
4. Would be perfect the text would be added at column C
Hope now would be more clear.

Thank you

 

[Joe4]

Assuming that we can use column A to determine where the last row on each sheet is (that can be changed, if need be), this should work.

Sub MyAddText()

    Dim ws As Worksheet
    Dim lastRow As Long
    
    Application.ScreenUpdating = False
    
'   Loop through all sheets
    For Each ws In Worksheets
'       Find last row on sheet by looking at column A
        lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row
'       Add text to column C three rows down from last row
        ws.Cells(lastRow + 3, "C") = "Add text here"
    Next ws
    
    Application.ScreenUpdating = True
    
End Sub

 

[mbilal429]

Thanks Man, It helped me too