用一个变量记录新增的行
vars("新增的行") = nr
那么,移除的时候可以写
If vars("新增的行") isnot nothing Then
vars("新增的行").Reject()
End If