shift up

Hello, I know this has been asked before, but I can't get any of the examples to work for my data. I have data in columns A:D. I need to check column D and if cell is 0 (a result of a formula) then delete A:D of that row and shift up. Then go to next. I only want to delete columns A to D...

See code below... code Sub RemoveBlankCells() Dim rng As Range Set rng = Range("A1:D5000").SpecialCells(xlCellTypeBlanks) rng.Rows.Delete Shift:=xlShiftUp End Sub /code Code works good for what i want it to do but I dont want all the rows to shift up i.e. a, b, c, d is blank I want it to shift...

Okay, this is my very first post and I might not be asking the right question but here is what i'm trying to accomplish. I'm creating a master list of projects according to employees. So I created a drop down box with employee names and then used the code:=IF('worksheet'!C:C="employee...

Hi All, I've been trying to figure out a simple macro that will count how many rows on a worksheet, and delete from the top anything that exceeds the desired value (shifting the other rows up). Im copying rows of data over to the sheet by another macro, but say i wanted it to limit it to 100...