Move cells with value to the top of a group

[chrisgarcia78]

Hi, I have the following rows in columns A,B,C
A10:A20
B10:B20
C10:C20
Each cell has a formula that gets a value of 0 or more, I would like to move all cells with values to the top rows starting on A10,B10, and C10.
for example: A10 and A11 has a value of "0" and all others with a value of "1" then move cells A12:A20 to A10:A18 and keep all original formulas including A10:A11 moved to A19:A20

Please help me with a solution.

 

[dreid1011]

Are you wanting to sort each column individually? You could select each column individually and use the built in sort feature to sort largest to smallest. When the prompt shows up to expand the selection, choose "continue with the current selection".

 

[chrisgarcia78]

Are you wanting to sort each column individually? You could select each column individually and use the built in sort feature to sort largest to smallest. When the prompt shows up to expand the selection, choose "continue with the current selection".

Hi, I need this to be an automatic function VBA and I need to keep the same sequence on each column instead of sorting by value.

 

[dreid1011]

Hi, I need this to be an automatic function VBA and I need to keep the same sequence on each column instead of sorting by value.

Do you need to preserve the formulas or just the values?

 

[Joe4]

It might be helpful if you could show us a sample of your data and expected results.

MrExcel has a tool called “XL2BB” that lets you post samples of your data that will allow us to copy/paste it to our Excel spreadsheets, so we can work with the same copy of data that you are. Instructions on using this tool can be found here: XL2BB Add-in

Note that there is also a "Test Here” forum on this board. This is a place where you can test using this tool (or any other posting techniques that you want to test) before trying to use those tools in your actual posts.