如何对其他行进行排序取决于VBA中的特定行？

在我的工作表中，有三列。我想基于Point对其他值进行排序。这是单元格值。

Name      Date     Point

Bela     3/2/12      19
John     1/4/16      32
Reba     9/1/10      21
Risala   3/31/13     21

我想排序如下。如果找到相同的点，则将根据日期进行排序。如何在VBA中执行此操作？

Name      Date     Point

John     1/4/16      32
Risala   3/31/13     21
Reba     9/1/10      21
Bela     3/2/12      19

这是积分计算的代码。

Private Sub Sum_Click()
Dim LastRow As Long

LastRow = Cells.Find("*", SearchOrder:=xlByRows,    SearchDirection:=xlPrevious).Row
Range("C6:C" & LastRow).Formula = "=DateDif(B6, Today(),""y"")+8"

End Sub