Sorting sheet by column before i open userformadvice

[ipbr21054]

I am trying to sort a sheet by column & then open my userform.
I have the below but i dont see anything happen

SOME INFOR FOR YOU.
Headers on row 6
Row 7 is hidden.
First row of values are at row 8
I wish to sort column D from A-Z

In the code supplied, The line shown in Red im not sure what the value is where i entered 4 as i thought it was the column to sort by ?
See screenshot please

Private Sub ConnectorUsed_Click()
    Dim x As Long
        Application.ScreenUpdating = False
        With Sheets("MCLIST")
        If .AutoFilterMode Then .AutoFilterMode = False
        x = .Cells(.Rows.Count, 4).End(xlUp).Row
            .Range("A8:L" & x).Sort Key1:=Range("A8"), Order1:=xlAscending, Header:=xlGuess
    End With

End Sub

 

[HongRu]

Try it.
Modify
.Range("A8:L" & x).Sort Key1:=Range("A8"), Order1:=xlAscending, Header:=xlGuess
to
.Range("A8:L" & x).Sort Key1:=Range("D8"), Order1:=xlAscending, Header:=xlNo