Replacing Text in Code from a List

Hi guys,

I do not know if this is a simple task or not.
I have the below code, where 'NORTH CLIENT' represents a 'department'. Now, I have like 150 different departments, and I'd rather not stay copying and pasting this code and changing the name 150 times. Is there a way this can be done quickly? I have the departments in an excel list, colom.

Case "NORTH CLIENT"
Sheets("NORTH CLIENT").Select
NCLRow = ActiveSheet.Range("A6555").End(xlUp).Row + 1
ActiveSheet.Range("A" & NCLRow).Select
Selection.PasteSpecial
Sheets("Main").Select

Thanks
Sam

The group is in the sheet 'Client LIST'. (code is in the macro)

Pl see the attached file.

Insted of copy paste Array formulas are given in NORTH CLIENT(2) and SOUTH CLIENT(2) Sheets.Data is transfered from MAIN sheet to respective Sheets.I hope it will be useful.Same formula you can copy to all Sheets.

In Each Sheet A1 cell Should have sheet name.
Formula is written Assuming that MAIN sheet contains data uto 10000 Rows. Suitable changes can be done.
Formulas can be dragged in both directions.