Private Sub CommandButton6_Click()
If WorkBookIsOpen("Файл2.xlsx") Then
Workbooks("Файл2.xlsx").Close Savechanges = True
Else
Dim wb As String: wb = 'адрес папки с файлом 2
With Application
   .Calculation = xlCalculationManual
   .Visible = False
Workbooks.Open FileName:=wb
Dim ra As Range
Set ra = Range("A" & Rows.Count).End(xlUp).Offset(1)
ra = UserForm1.TextBox8.Value
Range("B" & ra.Row) = UserForm1.TextBox4.Value
Range("C" & ra.Row) = UserForm1.ComboBox1.Value
Range("E" & ra.Row) = UserForm1.TextBox_Дата.Value
Range("H" & ra.Row) = UserForm2.TextBox2.Value
Range("I" & ra.Row) = UserForm2.ComboBox1.Value
ActiveWorkbook.Close (True)
   .Calculation = xlCalculationAutomatic
   .Visible = False
End With
End If
End Sub