Když se tak na to dívám, tak v tom větvení (které silně doporučuji předělat na Select Case) bych si pouze nastavil vhodné parametry a to kopírování provedl až nakonec ... ...
... ... A když už jsem to začal předělávat, tak mi svitlo, že se vlastně můžeš kompletně obejít bez té haldy větví - . Nějak takhle:
Skupina = Cells(i, 10)
Range(Cells(i, 2), Cells(i, 11)).Copy
Sheets(Skupina).Select
x = Range("B1").End(xlDown).Row + 1
Cells(x, 2).Select
ActiveSheet.Paste
Sheets("Přehled").Select
Asi bys měl ještě ošetřit existenci listu s názvem v proměnné Skupina, prázdnou buňku, apod., resp. to můžeš kontrolovat při zadání na listu Přehled.