Well, this assumes the cell under your last name is blank:-

firstadd = Range("a2").Offset(1, 0).Address
lastadd = Range("A65536").End(xlUp).Offset(2, 0).Address
Range("A65536").End(xlUp).Offset(1, 0) = Range("A2")
Range(firstadd, lastadd).Copy
Range("A2").PasteSpecial
Range("A1").Select

"TyeJae" wrote:


Anybody have a take on this?


--
TyeJae
------------------------------------------------------------------------
TyeJae's Profile: http://www.excelforum.com/member.php...fo&userid=7233
View this thread: http://www.excelforum.com/showthread...hreadid=465701