showing data on form based on activesheet using optionbutton

Hi again Leopard

Your procedure:

Private Sub UserForm_Activate()
With ActiveSheet

  a = .Range("A2:G" & .Range("D" & Rows.Count).End(3).Row).Value

  End With
End Sub

is triggered only once (when the UserForm launches) and even then you don't do anything with the variant "a" which it creates so you get a blank form..

In the revised file attached, I've copied the same code into a new private procedure:

Private Sub ChangeSheet()
    With ActiveSheet
        a = .Range("A2:G" & .Range("D" & Rows.Count).End(3).Row).Value
    End With
End Sub

which gets called by a line in the option button procedures which select a sheet (which also invoke the filtering to populate the ListBox):

Private Sub OptionButton1_Click()
    If OptionButton1.Value = True And OptionButton2.Value = False Then sheet5.Select
    Call ChangeSheet
    Call FilterData
End Sub

Private Sub OptionButton2_Click()
    If OptionButton2.Value = True And OptionButton1.Value = False Then sheet6.Select
    Call ChangeSheet
    Call FilterData
End Sub

Now - with a sheet button clicked -if you type "BS 12" say in TextBox2, you'll see the data get filtered.

Not sure why you're activating the sheets (which isn't needed unless you use ActiveSheet rather than sheet5 say in the first two procedures above) but assume you want to be reminded what the BRAND data looks like.

Hope this fixes your problem. If so, please mark my Answer as Selected.