Sorry, one more question: 4th line is still referencing a set number of rows:

ActiveSheet.Sort.SortFields.Add Key:=Range( _
"B4:B44"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal

Isn't that going to be a problem if I have more or less rows?