Option Explicit

Private Sub Frame1_Click()
Private Sub UserForm_Initialize()
Me.TextBox1.Value = ActiveSheet.Range("G14").Value
Me.TextBox2.Value = ActiveSheet.Range("G18").Value
Me.ComboBox1.List = Range("E6:E10").Value

End Sub

Private Sub ComboBox1_Change()
Range("H10").Value = Me.ComboBox1.Value
End Sub

Private Sub Frame2_Click()
Private Sub UserForm_2()
Me.TextBox3.Value = ActiveSheet.Range("L14").Value
Me.TextBox4.Value = ActiveSheet.Range("L18").Value
Me.ComboBox1.List = Range("J6:J10").Value

End Sub

Private Sub ComboBox2_Change()
Range("L10").Value = Me.ComboBox1.Value
End Sub

Private Sub CommandButton2_Click()
With ActiveSheet
.Range("G14").Value = Me.TextBox1.Value
.Range("G18").Value = Me.TextBox2.Value
End With
End Sub

Private Sub CommandButton3_Click()
Unload Me
End Sub