=ЕСЛИ(--ПСТР(A1;20;1)=2;A1;"")

Sub SaveFile()

   'Объявление переменных
   Dim CellValue As String
   Dim Path As String
   Dim FinalFileName As String

   'Временно отключаем показ вспомогательных сообщений
   Application.DisplayAlerts = False

   'Задаём каталог сохранения файла (в данном случае текущий каталог)
   Path = ThisWorkbook.Path & "\"

   'Получаем значение ячейки
   CellValue = Range("a7")

   'Формируем итоговый путь и название файла
   FinalFileName = Path & CellValue

   'Сохраняем файл
   ActiveWorkbook.SaveAs FileName:=FinalFileName, _
                      FileFormat:=xlOpenXMLWorkbook
                      'FileFormat:=xlOpenXMLWorkbookMacroEnabled 'Для сохранения файла с макросом

   'Включаем вывод сообщений
   Application.DisplayAlerts = True

   'Сообщение с результатом выполнения процедуры
   MsgBox "Файл успешно сохранен с названием - " & CellValue, vbInformation, "Результат"

  End Sub

=МАКС(ДВССЫЛ("r2c"&СТОЛБЕЦ()&":r"&СТРОКА()-1&"C"&СТОЛБЕЦ();0))

=МАКС(ДВССЫЛ("A1:A"&СТРОКА()-1))

Sub miadiva1()
    [c1] = [a1] & [b1]
End Sub