Sorry John there is an error in the previous post.

Wherever I have use c. then change that to rngToFind.

Amended code here.

Dim lngRow As Long
Dim lngCol As Long
Dim varValue As Variant

lngRow = rngToFind.Row 'Returns the row number

lngCol = rngToFind.Column 'Returns the column number

varValue = rngToFind.Value 'Returns the value in the cell

Cells(lngRow, "C") = rngToFind.Value 'Copies rngToFind.value to column C
same row

rngToFind.Offset(0, 3).Select 'Addresses a column 3 to right

rngToFind.Offset(0, -3).Select 'Addresses a column 3 to left

rngToFind.Offset(3, 0).Select 'Addresses a row 3 down

rngToFind.Offset(-3, 0).Select 'Addresses a row 3 to up

'You don't have to select the cell when using Offset.
Example:-
rngToFind.offset(0,-3).value = c.value 'Copies rngToFind.value to cell 3
to left

GUIDE for Offset:_
The offset number is the number of times you would have to press the
right/left/down or up arrow to get to the required position

--
Regards,

OssieMac