Selective listing of files in a folder

[Indigenous]

The following macro selects a folder and lists all files in that folder. It works as intended.
For each document there are several revisions, and I want to only list the last revision (see below). Some files have alpha revisions, some have numeric revisions.
This has been posted in another forum but no response so far.

WHAT IS HAPPENING
FileOne [A]
FileOne [B]
FileOne [C]
FileTwo [0]
FileTwo [1]
FileTwo [2]

WHAT I WANT
FileOne [C]
FileTwo [2]

Sub File_Attributes()
    Dim sFolder As FileDialog

    Set sFolder = Application.FileDialog(msoFileDialogFolderPicker)

    If sFolder.Show = -1 Then
    File_Attributes_List_Files sFolder.SelectedItems(1), True
    End If
End Sub

Sub File_Attributes_List_Files(ByVal SourceFolderName As String, ByVal IncludeSubfolders As Boolean)
    Dim FSO As Object
    Dim SourceFolder As Object
    Dim SubFolder As Object
    Dim FileItem As Object
    Dim r As Long

    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set SourceFolder = FSO.GetFolder(SourceFolderName)

    r = ActiveCell.Row
    For Each FileItem In SourceFolder.Files
    Rows(r).Insert
    Cells(r, 3).Formula = Chr(61) & "HYPERLINK(" & Chr(34) & FileItem.Path & Chr(34) & "," & Chr(34) & FileItem.Name & Chr(34) & ")"
    r = r + 1
    x = SourceFolder.Path
    Next FileItem

    If IncludeSubfolders Then
    For Each SubFolder In SourceFolder.SubFolders
    File_Attributes_List_Files SubFolder.Path, True
    Next SubFolder
    End If

    Set FileItem = Nothing
    Set SourceFolder = Nothing
    Set FSO = Nothing
    ActiveWorkbook.Saved = True
End Sub