Yardım sort butonuna datalardan en çok gol atan ilk 5 takımın kodunu yazmak

Private Sub CommandButton5_Click()
Dim total_data As range
Dim specific_column As range

Set total_data = Worksheets("Sheet").range("A2:C12")

Set specific_column = Worksheets("Sheet1").range("D")
total_data.Sort Key1:=specific_column, Order1:=xlDescending, Header:=xlYes

Worksheets("Sheet1").Cells(1, 1).Select



End Sub şöyle bir kod yazmıştım fakat range aralığımı kabul etmedi ve benim istediğim format msgbox ın içinde en çok gol atan ilk 5 takımın çıkması. Nasıl yapabilirm?

Merhabalar,
Burada daha yeni bir yanıt vermiştik, bakabilirsiniz.