Моля помогнете

Здравейте,
имам един проблем,за който се надявам че ще ми помогнете.
На Sheet1 имам таблица с две колони в първата колона имам имена , я във втората срещу всяка уме някаква цифра. Та въпроса ми е: как мога да направя на Sheet2 таблица, в която да има същите вде колони , но да с пордедени по низходящ ред спрямо числата във втората колона на първата таблица. но така , чепри промяна на някое число ввтората таблица автоматично да се пренареди.
Благодаря ви предварително.

Този макрос върши работа.
Предполага се, че няма заглавен ред в sheet1 и sheet2

Sheets("Sheet1").Select
Cells.Select
Selection.Copy
Sheets("Sheet2").Select
Cells.Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal