Get macro to run on next active cell

I have finally gotten this thing coded and Ive reached a snag. The code is looping and calling macros depending on values, but I need it to loop on the ending active cell of the macro it runs, and not the next cell down the A column.

Sub SelectCase()
Dim Last As Long
Dim Rng As Range
Last = Cells(Rows.Count, "A").End(xlUp).Row
Set Rng = Range("A1:A487")
For Each cell In Rng
Select Case cell.Value

Case 2
Call macro2
Case 3
Call macro3
ETC.....

End Select
Next Cell...........----> I need this to select the Case cell.value on the ending
End Sub.....................active cell of the macro that was
................................run (macro2, macro3, etc)

Any ideas on how to do this?