Köszi, nagyon kafa. :D

Viszont igazából nem A1-A7-ig kellene, hanem A31-A37-ig, mert előtte még vannak más dolgok, csak előbb nem gondoltam, hogy nem tudom majd olyan egyszerűen megváltoztatni a beviteli mezők helyét, mint a 2 állomásos verziónál. :|

Szóval átírtam már ezeket:

oFr.Value = Range("A31")

For i = 32 To CityCount

If i > 32 Then

de nem tetszik neki, és az én tudásomből csak ennyire futja. ;)