let
    source= Excel.CurrentWorkbook(){[Name="tblData"]}[Content],
    chtype = Table.TransformColumnTypes(source,{{"ФИО", type text}, {"Дата", type date}}),
    out = Table.Group(chtype, {"ФИО"}, {{"Макс дата", each List.Max([Дата]), type date}})
in
    out

Sub groupByFIO_Date()
Dim j As Long
Dim iLastRow As Long
Dim arrSour As Variant
Dim Dict As Object
Dim Key As String
Dim Item As Date

   Set Dict = CreateObject("Scripting.Dictionary")
   iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
   Range("D2:E" & iLastRow).ClearContents
   arrSour = Range("A1:B" & iLastRow)
   For j = 2 To UBound(arrSour, 1)
      Key = CStr(arrSour(j, 1))
      Item = CDate(arrSour(j, 2))
      If Not Dict.Exists(Key) Then
         Dict.Add Key, Item
      Else
         If Dict.Item(Key) < Item Then
          Dict.Item(Key) = Item
         End If
      End If
   Next j
   Erase arrSour
   ReDim arrSour(0 To Dict.Count - 1, 0 To 1)
   With Dict
        For j = 0 To .Count - 1
          arrSour(j, 0) = .Keys()(j)
          arrSour(j, 1) = .Items()(j)
        Next
    End With
    Cells(2, 4).Resize(UBound(arrSour) + 1, 2).Value = arrSour
End Sub