Hi,
Try using the following macro:

Sub Macro1()
Dim Counter As Integer
Counter = Selection.Cells.Count
Cells(Counter, 3).Select
End Sub

You can open Visual Basic panel using Alt+F11 or ToolMacroVisual
Basic Editor. Then: InsertModule. Within a module just copy the
following instruction.

Regards,
Tomek Polak
www.vba.blog.onet.pl