Select range for autofilter on current worksheet by using input box

Hello Arsil,

Here is your modified code. Note that Don's code and mine aren't identical. Rather than modifying Don's effort I hae chosen to modify my own previous procedure. Basically there are two changes.

1. The default is now variable, depending upon the used range.
2. The code will work only on the ActiveSheet and is therefore much shorter.

Sub Filter_Current_Worksheet()
    ' 27 Aug 2018
    
    Dim Dflt As String
    Dim Ask As String
    Dim Rng As Range
    
    With ActiveSheet
        Dflt = Range(.Cells(3, 1), Cells(3, .UsedRange.Columns.Count)).Address(0, 0)
        Do
            Ask = InputBox("Enter the address of the captions" & vbCr & _
                           "of the range to filter.", "Apply filter", Dflt)
            If Trim(Ask) = vbNullString Then Exit Sub
            On Error Resume Next
            Set Rng = Range(Ask).Rows(1)            ' correct wrong entry: 1 row only
        Loop While Rng Is Nothing
    
        If .AutoFilterMode Then .AutoFilterMode = False
        Rng.AutoFilter
        .Range("J4").Select                         ' defining pane freeze
    End With
    
    With ActiveWindow
        If .FreezePanes Then .FreezePanes = False
        .FreezePanes = True
    End With
End Sub

The version of the code below just asks for the row number, selecting the filter columns automatically. Observe that the row to freeze panes is set relative to the row entered by the user.

Sub Filter_Current_Worksheet2()
    ' 30 Aug 2018
    
    Dim Ask As String, R As Long
    Dim Rng As Range
    
    With ActiveSheet
        Do
            Ask = InputBox("Enter the row number" & vbCr & _
                           "of the range to filter.", "Apply filter", 3)
            If Trim(Ask) = vbNullString Then Exit Sub
            R = Val(Ask)
            On Error Resume Next
            Set Rng = Range(.Cells(R, 1), Cells(R, .UsedRange.Columns.Count))
        Loop While Rng Is Nothing
    
        If .AutoFilterMode Then .AutoFilterMode = False
        Rng.AutoFilter
        .Cells(R + 1, "J").Select                    ' defining pane freeze
    End With
    With ActiveWindow
        If .FreezePanes Then .FreezePanes = False
        .FreezePanes = True
    End With
End Sub