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