Questo codice filtra le Date (B) senza formule, l'altro le fa rivedere nuovamente
vb
Sub nascondi()
Dim Ur As Long, X As Long
Ur = Range("B" & Rows.Count).End(xlUp).Row
For X = Ur To 5 Step -1
If Mid(Cells(X, 2).Formula, 1, 1) = "=" Then Rows(X & ":" & X).Hidden = True
Next X
MsgBox "fatto"
End Sub
Sub scopri()
Rows("1:65536").Hidden = False
End SubExcel 2013