VBA deletes row and it causes the lower rows to shift up

[kiaheyrati038]

this code works great and deletes empty rows and shifts things up

sub test()
with range("L12:L28")
for i=.rows.count to 1 step -1
if isempty(.cells(i,1)) then .rows(i).delete shift:=xlup
next
end with
end sub

But the problem is that it also shifts anything below the L28 up and it ruins the rest of my file. any idea to just move the values up instead of shifting the whole row up and screwing the rest of worksheet?

 

[Fluff]

Hi & welcome to MrExcel.
You could clear the contents of those rows & then sort the data so the blank rows move to the bottom.

 

[kiaheyrati038]

Hi and thanks. but if i clear the content of those rows then there's nothing left to sort! though sorting scrambles my data and i can't do it anyways

 

[Fluff]

In that case every time you delete a row, you will need to insert another in row 29

 

[kiaheyrati038]

but how to do it while keeping the styles consistent?

 

[Fluff]

In what way?