Gav

Paste this into a normal module sheet

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

ActiveCell.Offset(1, 0).Select

to

ActiveCell.Offset(0, 1).Select





Sub Macro1()

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

Sheets("Sheet1").Select
Cells.FindNext(After:=ActiveCell).Activate

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

ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
End Sub


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