Ja és még valami. Ez a sor:

listavege = Range("F1048576").End(xlUp).Row

Excel2007-2010-ben működik. Excel2003 és régebbi verziók esetén így néz ki:

listavege = Range("F65536").End(xlUp).Row