Sub ExtraHeight()
ActiveCell.EntireRow.AutoFit
ActiveCell.RowHeight = ActiveCell.RowHeight + 10
End Sub