How to find longest string in a column

Hi everyone,
I have column contains only "1"s they are planted randomly and also have blank cells among the column randomly. I've trying to find and count the longest string made of these "1"s.

There is screenshot for worksheet; for example the longest string in this column contains seven "1"s.

Can anybody help me on this?

Thanks in advance

Untitled.jpg

See the attached file where I used this macro:

Please Login or Register  to view this content.

Regards,
Antonio

It was very fast
That's exactly what i need!!
Thank you very very much Antonio. You are the best!