And does it paste C:G in A:E and move that other stuff over a column or two?

DestCell.resize(1,5).Value _
= FoundCell.Offset(0, 2).resize(1,5).Value

Destcell.offset(0,5).value _
= foundcell.parent.range("A2").value
Destcell.offset(0,6).value _
= foundcell.parent.range("A3").value
Set DestCell = DestCell.Offset(1, 0)
Set FoundCell = .FindNext(after:=FoundCell)
If FoundCell.Address = FirstAddress Then
Exit Do
End If


Still untested!


STEVEB wrote:

Thanks Dave,

I tested the code & everything went smoothly!!! I really appreciate
your help!

One last question, is it possible to update the first code you gave me
for multiple cells:

For Example

For Variance in column A - Instead of copying the value of the cell in
column C is it possible to copy the values in columns C through G and
past accordingly on the varaince tab.

Thanks again!

--
STEVEB
------------------------------------------------------------------------
STEVEB's Profile: http://www.excelforum.com/member.php...fo&userid=1872
View this thread: http://www.excelforum.com/showthread...hreadid=506572

--

Dave Peterson