Not able to autofit rowhight of cells
<p>I have to autofit hight of row after adjusting column width and wrapping text.</p>

<p>I have written below code:</p>

<pre><code>Sub mycode()

Sheet1.Columns("A:A").ColumnWidth = 30
Sheet1.Columns("A:A").WrapText = True
Sheet1.Cells.EntireRow.AutoFit

End Sub
</code></pre>

<p>Code works fine when data of cell have less content.
 But when cell data is large, all data is not shown correctly.
cell misses some data.
Please help me. Thanks in advance.</p>

<p><a href="https://i.stack.imgur.com/RbBp2.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/RbBp2.png" alt="enter image description here"></a>  </p>