reomove blanks in list

S

storm.mcdonald

am using two sheets one with info typed into it and another in reference to
info
in the first sheet info is type and some cells left blank in one column
second sheet refers back to the info typed
need the second sheet to constantly sort out the blanks and move all info to
the top of page in the order it was typed

my goal is to have the second sheet locked out so no can edit it but it
constantly sorts out all the blanks without anyone having to do anything to
the second page but print it
 
J

Jim Thomlinson

If you are not averse to using a mcro something like this should do the
trick...

Sub RemoveBlanks()
On Error Resume Next

Sheets("Sheet1").Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0
End Sub
 
Top