Auto Adjusting Row Height via Macro

Hello guys. I would like some help, if possible.
I'm automating the row adjusting of some excel reports, depending on the lines of text in each cell in the A column. This is how I did it:

1 - I calculate the number of lines (wraped text) in each cell via formula:
=LEN(A1)-LEN(SUBSTITUTE(A1;CHAR(10);""))+1
I put this formula at B1. This will return me the number of lines in the text of A1.
Then I repeat this through the whole part that involves texts (there's some images below that I do not want to adjust).

2 - I create a macro and assign it to a button, with the following code:

Please Login or Register  to view this content.

With that I made each cell have a row height of "number of lines" times 16.5.


That worked but the number of cells varies from report to report. How can I improve this? I would like to check the number of lines via code instead of that formula, then I would have more control and could repeat this process until the last cell with text. Any ideas?
I'm new to excel and VBA, sorry! Thank you!

Thank you Pauleyb. I guess that solves the problem of having variable number of lines. But do you know how can I count the lines without that formula that I used?
Can I implement this directly on VBA code?

=LEN(A1)-LEN(SUBSTITUTE(A1;CHAR(10);""))+1

Thank you, going to try.