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