sub a()for i=[a65536].end(3).row to 2 step -1 if range("A"&i)>range("A"&i-1) then for j=1 to 3 rows(i).insert next j end ifnext iend sub