hi again

can you please refer to my post 'error message'. I am having a problem with the code when there is a large amount of data to paste. Any help would be great....................again!

Cheers!!

----- mudraker wrote: ----

Ga

Paste this into a normal module shee

It pastes your data into the same column with the header MANROLAND I
you need it to paste the data into the colmn after this one the
chang

ActiveCell.Offset(1, 0).Selec

t

ActiveCell.Offset(0, 1).Selec





Sub Macro1(

Sheets("Sheet2").Range("roland").Cop

Sheets("Sheet1").Selec
Cells.FindNext(After:=ActiveCell).Activat

Cells.Find(What:="manroland",
After:=ActiveCell, LookIn:=xlFormulas,
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext,
MatchCase:=False).Activat

ActiveCell.Offset(1, 0).Selec
ActiveSheet.Past
End Su


--
Message posted from http://www.ExcelForum.com