Hi

Sub backtothestart()

Dim currentrng As String

currentrng = ActiveCell.Address 'assigns the current cell address to variable
'
'
'Your code here
'
'

Range(currentrng).Select 'puts the cursor back


End Sub