Sub Top8()
Dim lRow As Long
With Worksheets("Sheet2")
lRow = .Cells(Rows.Count, "C").End(xlUp).Row
.Sort.SortFields.Clear
.Sort.SortFields.Add2 Key:=.Range("C2:C" & lRow) _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With .Sort
.SetRange Range("A1:C" & lRow)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
.Range("A1:C9").Copy Sheets("Sheet3").Range("A1")
End With
End Sub