Rows(j & ":" & k).SelectI also suspect the first line might want to be on the lines of:For j = 2000 To 2 Step -2