Filter - Multiple Columns - Loop through Visible Rows issue

Dear all,

Regarding Looping Visible Rows on a Filtered (Multiple Columns) data.

Need your help in selecting the range.

PFA.

Debug the function AgeName_Mapping().

I'm facing issues in looping visible rows on filtered data where filter has been applied on Multiple Columns.

       With ActiveSheet
            
            With .Range("$A$1:$D$1")
                                
                .AutoFilter
                .AutoFilter Field:=rID.Column, Criteria1:=ID
                .AutoFilter Field:=rYear.Column, Criteria1:=ID_Year

            End With

        End With
        
        'Selecting Visible Rows
        Dim rrID As Range
        Set rrID = Range("A2:A" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
        
        ' I guess the above Range needs to be selected to loop through multiple Filtered Columns and not Just One.
        
        For Each i In rrID
            
            i.Select
                
        Next

On executing i.Select, I would like A2 to get Selected in the sheet " Mapping ".

Please help

Thanks,
Vinod Krishna