Hello I revised your code, the macro now moves through the cells below each selection, and I could work with it but It would be better for the rest of the code if it could select the corresponding cells below keeping the already selected cells selected at the same time.

Sub test()


    Dim cel As range
    Dim selectedRange As range
    Dim preSelectedCells As String


    Set selectedRange = Application.Selection
    
    For Each cel In selectedRange.Cells
        cel.offset(1, 0).Select
        
        ' keep a list of the cells the user had selected so they can be reselected
        preSelectedCells = preSelectedCells & cel.Address & ","
    Next cel
    
    ' move the trailing coma
    preSelectedCells = Left(preSelectedCells, Len(preSelectedCells) - 1)
    
    ' reselect the previously selected cells
    ActiveSheet.range(preSelectedCells).Select
    
End Sub
Advanced range3.jpg