Hi

Code:
Set r = Cells(Rows.Count, List).End(xlUp)
I assume the variable List is the column number.