Sélectionner dernière cellule visible colonne filtrée

Bonjour
J'ai besoin d'aide et j'explique mon problème.
Comment sélectionner la dernière cellule visible de la colonne A qui est filtrée?

Voici mon code avec le quel, j'arrive à sélectionner la première cellule visible de la colonne «A»!
Dim vb As String
Dim vc As String

LastRow = Sheets("Commande").Cells(Rows.Count, 1).End(xlUp).Row
vb = Format(Range("A2:A" & LastRow).SpecialCells(xlCellTypeVisible).Cells(1), "d mmm yyyy")

Comment écrire le code pour sélectionner la dernière cellule visible de la colonne «A» qui est filtrée?

LastRow = Sheets("Commande").Cells(Rows.Count, 1).End(xlUp).Row
vc = Format(Range("A2:A" & LastRow).SpecialCells(xlCellTypeVisible).Cells(????), "d mmm yyyy")

Merci de m'aider!