automatic row height to fit text inputted but keep all other rows at a set height - HELP

Wonder is someone can help I have been able to do the automatic row height to fit the text thats input if it goes over the minimum height (column H in my excel file) but all the other rows go to the minimum height and the rows are really small, so I would like to set a standard minimum row height of 30

code am using for autofit is

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Range("h4:h1249").EntireRow.AutoFit
End Sub

what do I need to add to say put all other rows to 30 height