First of all apply the KISS principle ans simplify your code:
Worksheets("sheet1").Select
CustomerName = Range("C9")
Department = Range("C10")
ReasonOfRequest = Range("C11")
Ext = Range("I9")
CuDate = Range("I10")
Status = Range("A15")
Document = Range("B15")
Re = Range("C15")
Project = Range("F15")
Ewo = Range("G15")
AutoCad = Range("H15")
Additional = Range("I15")
Update your question with this change.
Then add a couple sentences to explain what you want to do and where is your problem.
Where is your filepath ?