Copy certain cells from a row to another sheet if cell equals value

I have a workbook with 10 different sheets. The one has a compilation of all of the data (Sheet "Sheet1") and the rest need the data copied to them from sheet1 based on values from Sheet1, column L. Column L, is a client name (for instance the first value in cell L2 is xyzz). The rest of the sheets are named accordingly (so sheet 2 is named xyzz). I need a marco that will search column L in sheet1 for a value, and if a cell in the column matches the value then it copies few cells (A,B,C & G) from that row / an entire row to the first empty row in another sheet. I am trying to make this as clear as possible so at the risk of possibly being redundant let me give this example. In sheet1 in cell L2 the value is xyzz. I need the macro to search column L, find that L2 matches xyzz, copies few cells / or entire row that L2 is in, and Pastes it to the first empty row in sheet "xyzz". Any help would be greatly appreciated. Thank you.

Please Login or Register  to view this content.

THANX A MILLION. BOTH VB's ARE WORKING GR8. YOU GUYS ROCK.......