Toggle Between RowSource Items And List Items In A ComboBox Based On Criteria

[Excel Fox]

One way to do that is given below. Just replace your existing code with it.

Private Sub ComboBox1_Change()
    
    With ComboBox2
        If Right(ComboBox1.Text, 1) = "*" Then
            .RowSource = ""
            .List = Array("Lower")
            .Value = "Lower"
        Else
            .RowSource = "Levels"
            .ListIndex = -1
        End If
    End With
    
End Sub

Private Sub CommandButton1_Click()
    
    Dim eRow As Long
    
    With Sheets("Sheet2")
        eRow = .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Row
        .Cells(eRow, 1).Resize(, 3).Value = Array(ComboBox1.Text, ComboBox1.Column(1), ComboBox2.Text)
        .Activate
    End With
    
End Sub

Private Sub CommandButton2_Click()
    Application.Quit
End Sub