Extraire première ligne de la dernière date

Bonjour

Novice en vba , j'ai besoin de votre aide.

J'ai une colonne date de dépenses ou on trouve toutes les dates de dépenses de toutes les personnes de la famille.

Je souhaiterai extraire les dernières dépenses de chaque personne.

J'ai réussi à trier les dates mais pas à extraire les dernières dépenses.

Comment faire pour les mettre également sur une nouvelle feuille ?

Merci !!

Bonjour,

voici un exemple, à tester.

Sub copy_filtre()
Sheets("rapport").Cells.ClearContents
  With Sheets("base").Range("$A$1:$C$1")
    .AutoFilter
    .AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(2, Sheets("base").Range("$I$1"))
    .Range("_FilterDatabase").SpecialCells(xlCellTypeVisible).Copy Sheets("rapport").Range("A1")
    .AutoFilter
  End With
 If MsgBox("Visualiser le rapport ?", vbYesNo) = 6 Then Sheets("rapport").Activate
End Sub