ramumu1031回答ポイント なしウォッチ

ExcelのVBAについてご教示願いたく投稿しました。

まず、ExcelでA～BAまでの53列ある表があります。
①この表の内、2,20,23,43,44,45,50,51,52,53列の10列を抽出する。
Sub 列抽出()
Dim データ範囲 As Range
Dim 抽出列 As Variant
Dim i As Long
Set データ範囲 = ActiveSheet.Range("A1").CurrentRegion
抽出列 = Array(2,20,23,43,44,45,50,51,52,53)
Sheets.Add.Name = "抽出"
For i = 0 To UBound(抽出列)
データ範囲.Columns(抽出列(i)).Copy Sheets("抽出").Range("A1").Offset(0, i)
Next i
End Sub
※これで、抽出というシートができました。
②この抽出したデータの2列目で上の行からダブりがないものは、そのまま抽出し、ダブりがあるものはまとめて1行として抽出したい。
③②を抽出する際、ダブりがないものについては、1～10列目をそのまま抽出する。
④ダブりがあるものは、ダブり行の一番上を抽出する。
複数行あったものは、その複数行の一番上のみを抽出する。
ただし、7,8列目は数値で、その複数行の小計のみを表示したい。
以上の作業をVBAで簡潔にできないか、ご教示していただけないでしょうか。
一応、ファイルを添付いたしました。よろしくお願いいたします。