Az If Cells(sor%, 2).Value = Empty Then _  sorban az Empty-t cseréld False-ra, és működni fog.