Code:
--------------------
Dim rng1 As Range
Dim rng2 As Range
Set rng1 = Range("A1:B50") ' Your copy range
Set rng2 = Range("C1:D50") ' Your paste range
For Each x In rng2.Cells
If x.Value < "" Then Exit Sub
Next x
rng1.Copy
rng2.PasteSpecial xlPasteAll
--------------------


HTH


--
tkstock


------------------------------------------------------------------------
tkstock's Profile: http://www.excelforum.com/member.php...o&userid=14443
View this thread: http://www.excelforum.com/showthread...hreadid=379439