copy cells but miss blanks

The technique still works, you just didn't mention the range included both formulas and constants. Like so:

Sub Copy_address3()
Dim RNG As Range

Set RNG = Union(Range("B5:E10").SpecialCells(xlCellTypeConstants, 2), _
                 Range("B5:E10").SpecialCells(xlCellTypeFormulas, 2))
RNG.Copy
Sheets("CERTIFICATE").Range("A1").PasteSpecial xlPasteValues
Application.CutCopyMode = False

End Sub

Notice I've not done any "selecting" like your other macro show. It's not necessary to bring sheets up onscreen or selecting cells before issuing action commands to them. Just properly address those ranges with complete references and the selecting goes away.