Hej hej.
Först behöver du identifiera dina unika städer, detta görs snabbast med "dictionairy", rekommenderas om du har mycket data, 100k rader eller mer. kolla in dictionairy.exist, dictionairy.add, samt hur man loopar dictionairies om detta verkar vara intressant. Är du mer bekväm med vanliga arrayer, så går detta givetvis det med. när du väl har identifierat dina unika städer så loopar du igenom dem, skapar en ny fil med:: set wb = Workbooks.add. döp filen med wb.name = dict(k). Därefter loopar du din källdata i en inre loop och lägger in de rader som matchar mot ditt item i din yttre loop.
Vet inte vad du är på för nivå i vba, så detta kan mycket väl vara ren grekiska för dig :). Det du bad om är dock inte helt lätt att utföra samt förklara. Lycka till. /Christian