Hello, I am running a macro that removes cells with nothing in them, sorts
them, and then moves them to another worksheet. here it is:

Public Sub DeleteStuff()
Cells.SpecialCells(xlCellTypeFormulas, xlErrors).Delete
Range("D1:F9").Select
Selection.Sort Key1:=Range("D1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Sheets("PROPOSAL").Select
ActiveCell.FormulaR1C1 = "=MidStep!R[-19]C[3]"
Range("C21").Select
Selection.AutoFill Destination:=Range("C21:C68"), Type:=xlFillDefault
Range("C21:C68").Select
ActiveWindow.SmallScroll Down:=-42
End Sub



It deletes and sorts alright, but when it goes to copy to the other
worksheet, a Microsoft Visual Basic error box comes up, and it only says 400
inside. Any ideas about what this is? i couldnt find anything here pertaining
to it. Thanks for any help.