以下是一个示例VBA代码，用于按日期排序并显示最近的日期：

Sub SortDates()
    Dim rng As Range
    Dim lastRow As Long
    
    ' 设置日期范围
    Set rng = Range("A1:A10") ' 假设日期在A列，从A1到A10
    
    ' 获取最后一行
    lastRow = rng.Rows.Count
    
    ' 使用冒泡排序按日期排序
    For i = 1 To lastRow - 1
        For j = 1 To lastRow - i
            If rng.Cells(j) < rng.Cells(j + 1) Then
                ' 交换位置
                rng.Cells(j).Cut
                rng.Cells(j + 1).Insert Shift:=xlDown
            End If
        Next j
    Next i
    
    ' 显示最近的日期
    MsgBox "最近的日期是：" & rng.Cells(1)
End Sub

在上面的示例中，我们使用冒泡排序算法对日期进行排序。首先，我们定义了一个范围rng，它表示要排序的日期范围。然后，我们使用冒泡排序算法对范围中的日期进行排序。在每次比较中，如果前一个日期小于后一个日期，则交换它们的位置。最后，我们使用MsgBox函数显示排序后的最近日期。

要运行这个VBA代码，你需要按下ALT + F11打开VBA编辑器，将代码粘贴到新的模块中。然后，你可以按下F5运行代码，或者将代码与你的其他VBA代码集成在一起。

请注意，上面的代码示例假设日期在A列，从A1到A10。你可以根据自己的需求修改代码中的日期范围。