VBA To copy cells in a range that contain data skipping formulas

I have the following code in a macro that selects all cells in the range. This works fine when the range on the sheet is either null or contains data. What i am looking for is a way to modify this so that it does not copy cells that contain a formula, only actual values. Any help is greatly appreciated.

With Sheets("Daily Meals")
    For Each cell In .Range("N4:N8")
        If cell.Value <> "" Then
            If rng Is Nothing Then
                Set rng = cell
            Else
                Set rng = Union(rng, cell)
            End If
        End If
    Next cell
    rng.Select
End With