Greetings,

I am still a newbie at VBA and still trying to understand this code and why it is not working for me. I have 4 comboboxes (cboSRegions col 2, cboSDistricts col 6, cboSOrganizations col 4, & cboSDate col 3). I have not begin to code for cboSOrganizations and cboSDate yet because I can't get the cboSDistricts to work like I want to. What I want to do is when a user selects a value from cboSRegions values located in column 2, the associated records located in the range A3:M are displayed in a listbox (Listbox1) and is copied to a range located in BXX3:BJY. I can get it to do that with no problem. However, when I apply an autofilter to that filtered data that I have copied to cells located in BXX3:BJY and step through the process, I can apply the filter and see the data I want but cannot get the result of that filtered data to copy that range of data (BXX3:BYJ) and display in the listbox. Here is the code for cboSDistricts click event 
LR = .Cells.Find("*", .Cells(Rows.Count, .Columns.Count), SearchOrder:=xlByRows, _
                SearchDirection:=xlPrevious).Row

        Set fRng = .Range("BXX3:BYJ" & LR)

        If Not .AutoFilterMode Then
            Range("BXX3:BYJ3").Select
            Selection.AutoFilter
        Else
            .AutoFilterMode = False
            Range("BXX3:BYJ3").Select
            Selection.AutoFilter
        End If

        .Range("BXX3:BXX" & LR).AutoFilter Field:=6, Criteria1:=Me.cboSDistricts.Value '<<< I can see the data I want to display at this point
        Set rSource = fRng.Offset(4, 0).Resize(fRng.Rows.Count - 1, 13).SpecialCells(xlCellTypeVisible) ' <<<This is where the problem begins       
        rSource.Copy .Cells(4, 2000)
        Set rSource = .Cells(4, 2000).CurrentRegion
        Me.Listbox1.RowSource = rSource.Address
        .AutoFilterMode = False
    End With
    Application.ScreenUpdating = True
Each row has 13 columns of data to display in the Listbox and the above code is very similar to the code for cboSRegions that works perfectly. I don't understand where my problem lies but I do believe if I can get additional assistance or guidance on how to fix this issue, then I want to be able to apply the same process for cboSOrganizations and cboSDate based on their values and apply the respective filters. These are cascading comboboxes and I want to drill down on the results in the listbox based on the selection in the comboboxes. I appreciate any assistance that you have to offer. Thank you in advance for your assistance and guidance. You have assisted me in the past with much success and I hope it can happen again.