Paste Special by Value:
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:
_
False, Transpose:=False
Determining the last line so that you donīt worry about blank spaces:
lastline = Cells(1, 1).End(xlDown).Row
If the line is blanks skip it:
if(activecell.value)="" then
activecell.offset(1,0)
end if
I hope this helps.
E.H
--
ehnt
-----------------------------------------------------------------------
ehntd's Profile:
http://www.excelforum.com/member.php...fo&userid=1586
View this thread:
http://www.excelforum.com/showthread.php?threadid=27553