Macros, first free cell to be with black text

[K0st4din]

Hello, everyone,
please for your help, for a macro that i do not know how to do.
I have 15 worksheets with specific names (peaches, tomatoes, apples, etc.).
In each of them all cells are made - the text in them is red. But in each worksheet, the length of the rows is different: for example: in "Apples" - is up to 564 lines, in Peaches - is up to 125, Tomatoes - is up to 1250.
I'm looking for a way, with a macro, after pressing the macro button, each free next line, more precisely a cell in column B:B, to write - "FINISH" and be black in the text.
From the example given: In "Apples" - cell B565, "Peaches" - cell B126, in "tomatoes" - cell B1251

[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD]sheet Apples[/TD]
[TD]sheet Peaches[/TD]
[TD]sheet tomatoes[/TD]
[/TR]
[TR]
[TD]text[/TD]
[TD]text[/TD]
[TD]text[/TD]
[/TR]
[TR]
[TD]text[/TD]
[TD]text[/TD]
[TD]text[/TD]
[/TR]
[TR]
[TD]text[/TD]
[TD]text[/TD]
[TD]text[/TD]
[/TR]
[TR]
[TD]text[/TD]
[TD]text[/TD]
[TD]FINISH[/TD]
[/TR]
[TR]
[TD]text[/TD]
[TD]text[/TD]
[TD]
[/TD]
[/TR]
[TR]
[TD]text[/TD]
[TD]text[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]FINISH[/TD]
[TD]text[/TD]
[TD]
[/TD]
[/TR]
[TR]
[TD]
[/TD]
[TD]text[/TD]
[TD]
[/TD]
[/TR]
[TR]
[TD]
[/TD]
[TD]text[/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD]FINISH[/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
Thank you all in advance!

 

[Peter_SSs]

Yes, yes, yes that's what I was looking for as a macro.

I'm not sure which one you are referring to but if your sheets contain formal tables (created through Insert -> Table) be aware that the two macros can produce different results on sheets that have such tables.

 

[K0st4din]

Hello,
the tables are completely normal.
They are not of the kind you mentioned.
The important thing is that once I tried them, both of the proposed macros work, but your option is the one I want - that is, I can say in which worksheets.
Thanks again.