Сохранить как новую версию, если файл уже существует

Question

Я пытаюсь создать макрос, который ищет существующий порядковый номер в папке и сохраняет его как новый порядковый номер, если он не существует. Например, у меня есть имя файла YYYYMMDD - 1 уже в папке. Теперь макрос должен найти 1, добавить к нему +1, сохранить как YYYYMMDD - 2 и так далее. Существующий макрос, который у меня есть, выглядит следующим образом:

Private Sub CommandButton1_Click()
    Dim Path As String
    Dim FileName1 As String
    If WorksheetFunction.CountA(Range("AD9:AM10")) = 0 Or _
        WorksheetFunction.CountA(Range("AD10:AM11")) = 0 Or _
        WorksheetFunction.CountA(Range("AD12:AM12")) = 0 Then
        MsgBox "Please select the Requirements of the sheet"
        End ' stops the macro from running
    Else
        Path = "https://xxxxxxxxxxxxxxxxxxxx/"
        FileName1 = Range("$B$2").Text
        ActiveWorkbook.SaveAs Filename:=Path & FileName1 & ".xlsm", _
            FileFormat:=xlOpenXMLWorkbookMacroEnabled
        Application.DisplayAlerts = True
        ActiveWorkbook.Close
    End If
End Sub

Private Sub CommandButton2_Click()
    Range("$G$6").Value = Format(Date, "YYYYMMDD")
End Sub

У меня есть кнопка макроса, которая генерирует новую дату при каждом нажатии, поэтому создание даты не является проблемой, но было бы хорошо, если бы то же самое макрос также ищет дату и генерирует новую дату на следующий день.

Любая помощь очень ценится.