Filter result show in the Listbox

Hello all experts,
I urgently need a solution to show Filtered data in a Form. A Listbox in a Form is required to display the filtered data.
It shows all data inside the Listbox but is not able to show the filtered data.
In "worksheet1", I need to filter column A with a different user name, how can I do it. Please help.

Sub filter_data()
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("worksheet1")
    Dim Lr As Long
    Lr = Sheets("worksheet1").Range("A" & Rows.Count).End(xlUp).Row
    
    With Me.ListBox1
        .ColumnCount = 8
        .ColumnHeads = True
        .ColumnWidths = "20,40,40,40,40,40,40,40,20"
        .RowSource = "worksheet1!A2:H" & Lr        
    End With    

End Sub

Thank you very much,
Curiousyoung60

Your explanation of your question is not complete. For example: Do you mean you are using a UserForm, or you have formatted a worksheet as a form? You said you need to filter column A for a user name but where do user names appear in your worksheet? What data is in your listbox? What is the "different user name" you need to filter for?

Your next step should be to attach your actual Excel file with sample data. See yellow banner at the top of the page. If we cannot figure out your question from context after reviewing the file than at least at that point we'll be able to ask specific questions.