Autofit Row Height for all rows from 2 to end of sheet

[LAAdams17]

I know this is simple, but looking for VBA I can use to change the Row Height for Rows 2 through the end of the sheet to autofit the row height. Thanks.

 

[VBAdude]

Sub AutoFit()

Worksheets("Sheet1").Range("A2:A" & Rows.Count).Rows.AutoFit

End Sub