Lehet még így is, ami mindenhol működik:
listavege = Range("F" & Rows.Count).End(xlUp).Row 'sorok száma az F oszlop értékei alapján