Объединить 2 макроса в 1

Sub DirInCell()
Dim fname As String
Dim result As Integer
With Application.FileDialog(1)
.Title = "Выберите файл"
.InitialFileName = "начальная папка"
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "Pack files", "*.*", 1
result = .Show
If result = 0 Then Exit Sub
fname = Trim(.SelectedItems.Item(1))
End With
ActiveCell = fname
End Sub

Sub LoadTXT()
    Dim sFiles As String, s As String, r As Double
    Cells.Clear
    sFiles = "путь к файлу"
    Open sFiles For Input As #1
    Do While Not EOF(1)
        Line Input #1, s
        If InStr(1, s, ";") > 0 Then
 
               Do While InStr(1, s, ";;") > 0 '
                   s = Replace(s, ";;", ";") '
               Loop
 
                t = Split(s, ";")
                r = r + 1
                For i = 0 To UBound(t)
                        Cells(r, i + 1) = t(i)
                 Next i
 
        End If
    Loop
    Close #1
End Sub