Sorting from row A6 onwards

I want to set up a button on my spreadsheet so that when the user wants to sort the column of names it will do it.

Problem is that my names start in row A8 - When I try to sort using the Ascending and descending arrows - the sort includes my headers etc in the first 7 rows.

I don't want use the the Auto filter.

Here is some code that I found but I can not get it to work.

Private Sub cmdSort_Click()

Dim iRow As Long
Dim ws As Worksheet

With Workbook.ws("WeightData")
   iRow = .Cells(Rows.Count, 1).End(xlUp).Offset(1).Row

        .Range("A6:A" & iRow).Sort , xlAscending, xlNo

    End With

End Sub

teebird

In you post you said your names start at A8. In the code you posted you are trying to sort from A6.

try this code

Sub SortData()
   Dim lngSortTo As Long
   
   With Sheets("WeightData")
      lngSortTo = .Cells(Rows.Count, 1).End(xlUp).Row
      .Range("A8:A" & lngSortTo).Sort Key1:=.Range("A8"), Order1:=xlAscending, Header:=xlNo
   End With
End Sub