Solved: Search Text and loop the same thing for same text

[bvsramesh]

Hi Team,

I am attaching a file along with this and i need that....

1) from the oringinal sheet a text should be search (Balance Pool = ) if it is found and copy all the data in the row

for eg: Balance Pool = D0CB VEENA LTD

Balance Pool = find it should copy all the text in row "Balance Pool = D0CB VEENA LTD"

this should be loop up to the last row of the sheet. and the above will be copied before the product code and shold be CONCATENATE with all product codes.

plz find in the sheet for your ready reference.

But my problem is i have started with finding the text but need ur help to loop it up the last row when ever it found the Specific Text and it should be copied



[VBA]Sub FindLastRow()
Dim LastRow As Long
If WorksheetFunction.CountA(Cells) > 0 Then
'Search for any entry, by searching backwards by Rows.
LastRow = Cells.Find(What:="Balance Pool = ", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
End If
End Sub
[/VBA]


Please help as i am trying but i did't get any idea so far....


Thanks in advance.

BVSR.