Private Const papka As String = "C:\ШАБЛОНЫ"
Private Const rekvName As String = "Реквизиты"

' если эти переменные планируется использовать только в этом модуле, то достаточно так:
'Dim fio, pasport, vydan, dvyd, adr, emai, tel, pod, obj, dog, ddog

' а если эти переменные будут использоваться в других модулях, то нужно так:
Public fio, pasport, vydan, dvyd, adr, emai, tel, pod, obj, dog, ddog

Private Sub GetData()
      With ActiveWorkbook.Sheets(rekvName)
          fio = .Range("B3")
          pasport = .Range("B4")
          vydan = .Range("B5")
          dvyd = .Range("B6")
          adr = .Range("B7")
          emai = .Range("B8")
          tel = .Range("B9")
          pod = .Range("B10")
          obj = .Range("B11")
          dog = .Range("B12")
          ddog = .Range("B13")
      End With
End Sub

Sub dogovor() 'Создание договора по данным клиента
      CreateDoc "Договор"
End Sub

Sub akt() 'Создание АКТА по данным клиента
      CreateDoc "Акт"
End Sub

Private Sub CreateDoc(FileName As String)
      If Dir(papka, 16) = "" Then MsgBox "Переместите папку <ШАБЛОНЫ> : Компьютер - Локальный диск(C)", vbCritical, "Ошибка": Exit Sub
      Dim wb1 As Workbook, wb2 As Workbook, p$
      Set wb1 = ActiveWorkbook
      p = wb1.Path
      Set wb2 = Workbooks.Open(papka & "\" & FileName & ".xlsx")
      With wb2.Worksheets(1).Cells
          .Replace "{ФИО}", fio, xlPart
          .Replace "{Паспорт}", pasport, xlPart
          .Replace "{Выдан}", vydan, xlPart
          .Replace "{Дата выдачи}", dvyd, xlPart
          .Replace "{Адрес регистрации}", adr, xlPart
          .Replace "{E-mail}", emai, xlPart
          .Replace "{Телефон}", tel, xlPart
          .Replace "{Подпись}", pod, xlPart
          .Replace "{Адрес объекта}", obj, xlPart
          .Replace "{Номер договора}", dog, xlPart
          .Replace "{Дата договора}", ddog, xlPart
      End With
      wb2.SaveAs (p & "\" & FileName & "(" & dog & ").xlsx")
End Sub