以下是一个按最近日期排序项目的VBA代码示例：

Sub SortProjectsByDate()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim rng As Range

    ' 设置要排序的工作表
    Set ws = ThisWorkbook.Sheets("Sheet1")

    ' 确定最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    ' 设置要排序的范围
    Set rng = ws.Range("A2:C" & lastRow)

    ' 按日期降序排序
    rng.Sort Key1:=Range("C2"), Order1:=xlDescending, Header:=xlYes

    ' 更新公式以重新计算排序后的项目日期
    ws.Range("C2:C" & lastRow).Formula = "=IF(A2<>"", TODAY(), """")"

    ' 将日期格式设置为yyyy-mm-dd
    ws.Range("C2:C" & lastRow).NumberFormat = "yyyy-mm-dd"
End Sub

此代码假设数据包含在名为"Sheet1"的工作表中，项目名称在A列，项目描述在B列，日期在C列。代码将按日期排序项目，并将日期格式设置为"yyyy-mm-dd"。