Custom Copy/paste - Cell Reference For Destination

i am writing a custom copy/paste routine which will paste data from a selection if the cell being pasted to is not locked.

The user will select the text for coping and then launch the routine.

The routine will query for destination cell and then process the paste.

This is my routine so far:

Sub testCopy()

Dim c As Range
Dim MyRange As Range
Dim Dest As Range

Set MyRange = Selection
Set Dest = Application.InputBox(prompt:="Select a cell", _
Title:="Paste Destination", Type:=8)

For Each c In MyRange
If Dest.Locked = False Then
Dest.Value = c.Value
End If
'dest = ?
Next c
End Sub

What I need to know is how to increment the dest reference so it is in the same 'relative' position from the initial dest that c (from the selection) is in or is there a better way to do this?