Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Asegurarnos de que solo ajustamos las filas a partir de la fila 5
If Not Intersect(Target, Me.Rows("5:" & Me.Rows.Count)) Is Nothing Then
Me.Rows("5:" & Me.Rows.Count).AutoFit
End If
End Sub
