בעוד קצת מאמץ אפשר להכניס את שם גיליון המקור לעמודה נוספת, כך שהמשתמש לא יצטרך להקליד את שמו בכל שורה
משתנה MS = שם הגיליון המרכז:
Sub aba()
'main sheet
MS = "ñéëåí"
Sheets(MS).Select
LR = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(2, 1), Cells(LR, 3)).Clear
For Each sh In Sheets
If...