VBA Macro to add a Particular Text in Each sheet.

[Jyotirmaya]

I want a Macro that a same text will be copied to different sheets, but the condition is that the text will appear after the end of used rows of the sheet. I want to specify the sheet name in the Macro code & in Column E after the end of rows the Text will be appear.

 

[texasalynn]

could you post a little more detail. Give us a sample of what you are saying "same text" contains. Give a sample of a couple of the rows.

 

[Jyotirmaya]

could you post a little more detail. Give us a sample of what you are saying "same text" contains. Give a sample of a couple of the rows.

For example in the above 3 images the sheet names are Apple Orange & Grape. Apple sheet data ends in 14th row & Orange on 112th, Grape on 16th row. I want a Text in the next row of each sheet that "Taken Printout on 01.01.2017" in each sheet I want this, I have 100 sheets & I want the text in 80 sheets so In the code I want that I can mention the sheet name where I can insert the desired text.

 

[texasalynn]

try this

Sub TakenDatesheetloop()
Dim WSCount As Long, i As Long, LR As Long
WSCount = Worksheets.Count

For i = 1 To WSCount
            
    LR = Sheets(i).Range("A" & Rows.Count).End(xlUp).Row
    Sheets(i).Range("E" & LR + 1) = "Taken Printout on " & Format(Date, "mm.dd.yyyy")
    
Next i
End Sub