Error message -sort reference is not valid

[FROGGER24]

I am getting "sort reference is not valid. The actual rows to sort is in row 3 to last used row

 With Sheets("Hours")
      UsdRws = .Range("A" & Rows.Count).End(xlUp).Row
      With .Range("A2", .Cells(2, Columns.Count).End(xlToLeft))
       .Resize(UsdRws).Sort .Columns(6), xlAscending, xlAscending, Header:=xlYes
         .Resize(UsdRws).Sort .Columns(6), xlAscending, .Columns(1), , xlAscending, Header:=xlYes
      End With
   End With

Appreciate help in troubleshooting

 

[gordsky]

what

I am getting "sort reference is not valid. The actual rows to sort is in row 3 to last used row

 With Sheets("Hours")
      UsdRws = .Range("A" & Rows.Count).End(xlUp).Row
      With .Range("A2", .Cells(2, Columns.Count).End(xlToLeft))
       .Resize(UsdRws).Sort .Columns(6), xlAscending, xlAscending, Header:=xlYes
         .Resize(UsdRws).Sort .Columns(6), xlAscending, .Columns(1), , xlAscending, Header:=xlYes
      End With
   End With

Appreciate help in troubleshooting

your code suggests you are trying to sort by column 6 and then again by column 1 over range of A2 to lastcolumn/lastrow? is that what you are trying to do?

 

[Fluff]

How about like

 With Sheets("Hours")
      UsdRws = .Range("A" & Rows.count).End(xlUp).Row
      With .Range("A2", .Cells(2, Columns.count).End(xlToLeft))
         .Resize(UsdRws).Sort .Columns(6), xlAscending, .Columns(1), , xlAscending, Header:=xlYes
      End With
   End With

 

[FROGGER24]

sorry for delay in responding the code worked. Thank you

 

[Fluff]

You're welcome & thanks for the feedback.