Dim RW As Long

Private Sub ComboBox1_Change()
ComboBox1.AddItem "Одноместный"
ComboBox1.AddItem "Двухместный"
ComboBox1.AddItem "Люкс"
End Sub

Private Sub ComboBox2_Change()
ComboBox2.AddItem "Да"
ComboBox2.AddItem "Нет"
End Sub

Private Sub CommandButton1_Click()
    With Worksheets("Раз")
        Cells(RW, 1).Value = TextBox1.Value
        Cells(RW, 2).Value = TextBox2.Value
        Cells(RW, 3).Value = ComboBox1.Value
        Cells(RW, 5).Value = TextBox3.Value
        Cells(RW, 6).Value = ComboBox2.Value
        Cells(RW, 7).Value = TextBox4.Value

      Dim Y As Integer
      
    If ComboBox2 = "Да" Then Y = 200
    If ComboBox2 = "Нет" Then Y = 0
        Cells(RW, 8) = Cells(RW, 4) * Cells(RW, 5) + Y + Cells(RW, 7)

    End With

End Sub

Private Sub CommandButton2_Click()
Unload UserForm2
End Sub

Private Sub UserForm_Initialize()
RW = ActiveCell.Row
    With UserForm1
        TextBox3.Value = Cells(RW, 5).Value
        ComboBox1.Value = Cells(RW, 3).Value
        ComboBox2.Value = Cells(RW, 6).Value
        TextBox1.Value = Cells(RW, 1).Value
        TextBox2.Value = Cells(RW, 2).Value
        TextBox4.Value = Cells(RW, 7).Value
    End With
End Sub

Private Sub SpinButton1_Change()
UserForm2.TextBox3.Text = CStr(UserForm2.SpinButton1.Value)
End Sub
Private Sub TextBox3_Change()

If UserForm2.TextBox3.Text <> "" Then
    UserForm2.SpinButton1.Value = CVar(UserForm2.TextBox3.Text)
     End If
End Sub