A Rows.Count a lapon lévő sorok száma, régebbi verziókban 65.536, újabbakban 1.048.576. A fenti utasítás annak a műveletnek a VBA-s megfelelője, mikor az A oszlop alsó celláján állva nyomsz egy Ctrl+fel nyilat. Ilyenkor az A oszlop utolsó kitöltött cellájára ugrik a fókusz. A +1 adja az első üres sor számát az oszlopban.
Az If Sheets("seged").Range("Z28") = "yes" = True Then Sheets("Raktar").Cells(sor, 2) = Sheets("seged").Range("O17") típusú sorok hibásak, nincs kettős egyenlőség a VBA-ban.
A helyedben felvennék a makró elején 2 változót, könnyebb kezelni a továbbiakban a hivatkozásokat.
Dim WSR As WorkSheet, WSs As WorkSheet
Set WSR = Sheets("Raktar")
Set WSs = Sheets("seged")
If WSs.Range("Z28") = "yes" Or WSs.Range("Z28") = "True" Then WSR.Cells(sor, 3) = WSs.Range("K17")