Delete Blank Rows-I know I know its been asked a million>

[Bigzippy]

Sub DelBlankRows()

On Error Resume Next
range("B6:B194").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

End Sub

this does not work but it describes what im tring to do,m imust not del anything above row 6

Please help Lal

 

[Jonmo1]

Works for me. What error do you get? Is that the ENTIRE Code??

 

[Bigzippy]

no error

i dont get an error

just does not work

alt methods ?

 

[HalfAce]

Yep, there's nothing wrong with the code you posted.

You can see any errors it's causing by removing the line: On Error Resume Next.

(Are the "blank" cells truely blank or are they formulas returning blanks?)

 

[Bigzippy]

formulas return blanks then copy and pastespecial values so it is blank as faras i can tell

 

[Bigzippy]

wierd isblank=false and info=text but i cant see anything in formula bar

 

[Jonmo1]

can you post the formula that returns blanks? maybe it's not REALLY Blank...

 

[Bigzippy]

Sub addDates()
Application.ScreenUpdating = False
Dim i As Integer
Dim z As Integer
Dim StartingDate As Variant

'ActiveSheet.ShowAllData
range("A6:A3000").Select
Selection.ClearContents

StartingDate = Sheet1.range("stopdate").Value
Sheet1.range("A6").Value = Sheet1.range("stopdate").Value
z = Sheet1.range("tradingdays").Value
range("A7").Select
ActiveCell.Offset(-1, 1).FormulaR1C1 = "=+IF(WEEKDAY(RC[-1],2)<6,RC[-1],"""")"

For i = 1 To z
ActiveCell.FormulaR1C1 = "=+R[-1]C-1"
ActiveCell.Offset(0, 1).FormulaR1C1 = "=+IF(WEEKDAY(RC[-1],2)<6,RC[-1],"""")"
ActiveCell.Offset(1, 0).Select
Next i

'change to numbers(values)
range("A6").Select
range(Selection, Selection.End(xlToRight)).Select
range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
range("A6").Select

End Sub

 

[HalfAce]

You can try using the autofilter. . .

With ActiveSheet
  With Range("B6:B192")
    .AutoFilter Field:=1, Criteria1:="=***", Operator:=xlAnd
    .SpecialCells(xlCellTypeVisible).EntireRow.Delete
  End With
  .AutoFilterMode = False
End With

Does that help?

[EDIT:]
(Corrected the range to start at row 6)

 

[Bigzippy]

That works great

THANK YOU