Workbooks(i).Sheets(1).Range(A2).Select

Hacsak nincs olyan range-ed aminek az A2 nevet adtad (nem kéne) akkor a szintaktika a következő legyen:

Workbooks(i).Sheets(1).Range("A2").Select

Szerintem a kód írható gyorsabbra, pld a Select-ek elhagyásával.

Az első részben lévő ellenőrzésből is kihagyható a felhasználó input-ja, azt kell ellenőrizni, hogy a nyitott workbook-ok neve megfelel-e az elvárásaidnak.  Mivel az egyetlen olyan workbook-nak ami nyitva kell legyen tudod a nevét (a template), akár kódból be is csukhatod a nyitott, de felesleges workbookokat.