Look like a task for INDEX with MATCH
Data Item cherry 7
code data1 6
apple 4 5
apricot 5 3
banana 3 4
cherry 7
damson 6
orange 5
peach 3
pear 4
plum 2
The range apple...plum is called CODE
The 4....2 is called Data1
The cell with 'cherry' is called ITEM
The formula in next cell F1 is =INDEX(data1,MATCH(Item,code,1)+ROW()-1)
Copy this down
best wishes

Signature
Bernard V Liengme
Microsoft Excel MVP
http://people.stfx.ca/bliengme
remove caps from email
> Hello all,
>
[quoted text clipped - 30 lines]
>
> -- Alton
muddan madhu - 23 Mar 2008 13:20 GMT
On Mar 22, 6:33 pm, "Bernard Liengme" <blien...@stfx.TRUENORTH.ca>
wrote:
> Look like a task for INDEX with MATCH
>
[quoted text clipped - 57 lines]
>
> - Show quoted text -
i think this might help u, try out if i am wrong guide me
Dim va1 As String
Application.ScreenUpdating = False
Sheets("Formula Table").Select
Range("a2").Select
Selection.Copy
va1 = ActiveCell.Value
va1 = Range("a2")
ActiveSheet.Previous.Select
Range("A:A").Select
Cells.Find(what:=va1, after:=ActiveCell, LookIn:=xlFormulas,
lookat:= _
xlPart, searchorder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False _
, searchformat:=False).Activate
ActiveCell.Offset(0, 0).Select
ActiveCell.FormulaR1C1 = ActiveCell.Value
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Next.Select
Range("a2").Select
ActiveSheet.Paste
Range("A2").Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
Exit Sub
End Sub