Coying Cells in an colum untill keyword found

[Parth13]

Hi, I am trying to write a code which should select and copy all the values in an column say "A" untill a keyword "Recieved" found in the next cell. It can "Recieved"+Any other text. No success till now . If anybody can help here!
Thanks.

 

[Sharpefiction]

Reckon this should help you...

http://www.mrexcel.com/forum/showthread.php?t=300330

 

[Parth13]

Thanks Sharpefiction, but this is not really I am looking for. In my case, the keyword containing cell will come only once, it'll act as a partition as data above that has to be copied to separate sheet.

 

[Parth13]

Success atlast, used the following code to search a keyword down the column and then copy all rows above the row containing the keyword.

Range("A1").Select
Cells.Find(What:="Receiver", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveSheet.Cells(ActiveCell.Row - 2, 1).Activate
Range(Selection, Selection.End(xlUp)).EntireRow.Select

Selection.Copy