If Target.Address = "$S$13" Then         'Если изменилась ячейка S13
                    'Ячейка S13 имеет имя "НазваниеУлицы"   
      N = Range("НазваниеУлицы")        'В переменную N записываем значение из этой ячейки
      Ul = Ulica(N)                    'Ul это переменная, в которую записывается результат
                    'Который возвращает функция с именем Ulica
                    'N мы передаем в функцию
      Range("Результат") = Ul                'В ячейку "Результат" записываем то, что вернула функция

'Тут название улицы, принимает значение в переменную, возвращает переменную String
Function Ulica(NazUl As String) As String
    
    Ulica = "ул."   'В данном случае Функция возвращает "ул."
End Function

Private Sub Worksheet_Change(ByVal Target As Range)
Dim N As String
Dim Ul As String
If Target.Address = "$S$13" Then         'Если изменилась S13
      N = Range("НазваниеУлицы")        'Берем название улицы
      Ul = Ulica(N)                    'Отправляем в функцию Ulica
      Range("Результат") = Ul                'Результат в "Результат"
End If
End Sub

' Функция просто возвращает приставку "ул." при определенных условиях
Function Ulica(NazUl As String) As String
    Dim N
    For N = 14 To Cells.SpecialCells(xlLastCell).Row '14 номер строки, с которой начинается поиск
    If Cells(N, 19) = NazUl Then 'Столбец, в котором производится поиск
        Exit For
    End If
Next N
If (CStr(N) < 120) Then
    Ulica = "ул."
Else
    Ulica = ""
End If
End Function

Private Sub Worksheet_Change(ByVal Target As Range)
Dim N As String
Dim Ul As String
Dim DL As Long
If Target.Address = "$S$13" Then         'Если изменилась S13
      N = Range("НазваниеУлицы")        'Берем название улицы
      Ul = Ulica(N)                    'Отправляем в функцию Ulica
      Range("Результат") = Ul                'Результат в "Результат"
End If
If Target.Address = "$Q$13" Then         'Если изменилась Q13
      N = Range("НазваниеУлицы")        'Берем название улицы
'-------------Вот тут начинается проблема
'Другую функцию я не могу назвать ни как иначе как Ulica1 или Ulica2
'То есть могу менять только цифру после названия
      DL = DlinnaNazvaniya(N)                'название функции DlinnaNazvaniya приниматься не будет
      Range("Результат2") = DL               'Результат в "Результат2"
End If
End Sub