VBAで最大値と2番目の取得方法

Excel上のVBAで資料作成をおこなっているのですが、一部、どうしたら良いのかわかりません。 アドバイスをお願いいたします。 ■やりたいこと 　・Excelの一覧表で、行ごとに1番大きい値と2番目に大きい値を取得する。 　・取得する際、項目名（1行目にある値）も併せて取得する。 　・取得数の上限は2件のため、1番目、2番目がそれぞれ複数ある場合、 　　あらかじめ用意してある、優先順位の表にしたがって上位2件を取得する。 ■例 　・図のような成績表があった場合、取得結果は以下を想定しています。 　　Aさん→国語：100、英語：90 　　Bさん→数学：100、社会：90 　　Cさん→国語：80、数学：60 　※ 　　・Aさん： 　　　・最大値→国語：100 　　　・2番目→英語：90 　　　最大値、2番目ともに、そのまま取得でOK。 　　・Bさん： 　　　・最大値→数学：100 　　　　そのまま取得でOK 　　　・2番目→理科と社会の90 　　　　優先順位で社会が上位にあるため、社会を取得。 　　・Cさん： 　　　・最大値→国語と英語の80 　　　　優先順位で国語が上位にあるため、国語を取得。 　　　・2番目→数学と理科の60 　　　　優先順位で数学が上位にあるため、数学を取得。 よろしくお願いします。