Run time error 1004 - what have I done wrong?

Anybody know why this is a problem?

    Sheets("data").Select
    h = UsedRange.Rows.Count
    Rows("2:" & h).Select
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("H2") _
       , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
     False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
    :=xlSortNormal

Alex