Auto fit function

I have a macros enabled worksheet. The codes were basically compiled together from the different posts here in the forum. Now I wanted to use an "auto-fit" function for the rows that should be set into 46 height as default and adjusts if the texts it is using as reference/copied is longer. I used wrap-up text but it doesn't seem to work. A code I found here in the site is used for that:

Cells.Rows.AutoFit

But I have a problem inserting this code simply because:

1. The code does not set it to 46 height as standard/default if the text it copies is shorter.
2. Everytime I insert it on the codes/macros I am using, an error 400 is popping up. here's the macros that I use:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Or Target.HasFormula Then Exit Sub

    On Error Resume Next
    If Not Intersect(Target, Range("b14:B131")) Is Nothing Then
        Application.EnableEvents = False
        Target = UCase(Target)
        Application.EnableEvents = True
    End If
    On Error GoTo 0

End Sub
Sub HideRow()
    Dim lLastRow As Long
    Dim lCounter As Long
    
    ActiveSheet.Unprotect
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
    
    Sheets("SF 1").Shapes("Button 1").Visible = False
    
    With Worksheets("SF 1") 'Change to suit
    
    lLastRow = .Range("ar65536").End(xlUp).Row
    For lCounter = 14 To lLastRow
        If .Cells(lCounter, "ar").Value = 1 Then
            .Cells(lCounter, "ar").EntireRow.Hidden = True
        'Else: .Cells(lCounter, "ar").EntireRow.Hidden = False
        End If
    Next lCounter
    .Range("A14").Select
    End With
    
    Sheets("SF 1").Shapes("Button 2").Visible = True
     
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True

    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    
    
End Sub

Sub UnHideRow()
    
    ActiveSheet.Unprotect
    Worksheets("SF 1").Rows.Hidden = False
    Sheets("SF 1").Shapes("Button 1").Visible = True
    Sheets("SF 1").Shapes("Button 2").Visible = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

badly need help here...