Этот макрос не работает с именем файла, а работает с данными, которые находятся в переменной "FileName". Вам надо адаптировать этот макрос в свой макрос.
Чтобы предложенный мной макрос правильно сработал, после символа "№" должно быть два пробела, как в вашем примере.
Макрос
Sub макрос()
Dim FileName As String, number As String, res
' Запись в переменные данных, с которыми надо работать.
FileName = "01_0524_БРП"
res = "№ от 01.01.2000г."
' Извлечение из имени файла числа, которое находится до символа "_".
number = Left(FileName, InStr(FileName, "_") - 1)
' Подстановка числа в переменную "res".
' Нумерация в массиве после использования "Split" начинается с нуля.
' 1 - это второй элемент в массиве.
res = Split(res, " ")
res(1) = number
res = Join(res, " ")
End Sub