sub?aa
k=cells(row.count,1).end(xlup).row
for?each?rng?in?range("a2:a"?&?k)
if?rng<>""?then?
rng.entirerow.copy?sheet2.range("a"?&?sheet2.cells(row.count,1).end(xlup).row+1)
end?if
next
end?sub