How can I give File Path connection In VBA Macro. (Globally)any one can use without any path changes

Sub Mail_workbook_Outlook_2()
Dim CustomerName As String, Department As String, ReasonOfRequest As String, Ext As String, CuDate As Date, Status As String, Document As String, Re As String, Project As String, Ewo As String, AutoCad As String, Additional As String
Dim mydata As Workbook
Dim Mypath As String
Dim filename As String

 

Worksheets("sheet1").Select
CustomerName = Range("C9")
Worksheets("sheet1").Select
Department = Range("C10")
Worksheets("sheet1").Select
ReasonOfRequest = Range("C11")
Worksheets("sheet1").Select
Ext = Range("I9")
Worksheets("sheet1").Select
CuDate = Range("I10")
Worksheets("sheet1").Select
Status = Range("A15")
Worksheets("sheet1").Select
Document = Range("B15")
Worksheets("sheet1").Select
Re = Range("C15")
Worksheets("sheet1").Select
Project = Range("F15")
Worksheets("sheet1").Select
 Ewo = Range("G15")
 Worksheets("sheet1").Select
 AutoCad = Range("H15")
 Worksheets("sheet1").Select
 Additional = Range("I15")

 filename = ("DMI-Form-505-Output.xlsx")
 Set mydata = Workbooks.Open(filename)
 
 mydata.Activate
 

    Worksheets("sheet1").Select
 Worksheets("sheet1").Range("a1").Select
 RowCount = Worksheets("sheet1").Range("A1").CurrentRegion.Rows.Count
 With Worksheets("sheet1").Range("A1")
 .Offset(RowCount, 0) = CustomerName
 .Offset(RowCount, 1) = Department
 .Offset(RowCount, 2) = ReasonOfRequest
 .Offset(RowCount, 3) = Ext
 .Offset(RowCount, 4) = CuDate
 .Offset(RowCount, 5) = Status
 .Offset(RowCount, 6) = Document
 .Offset(RowCount, 7) = Re
 .Offset(RowCount, 8) = Project
 .Offset(RowCount, 9) = Ewo
 .Offset(RowCount, 10) = AutoCad
 .Offset(RowCount, 11) = Additional
 End With
 mydata.Save
 End Sub