Copy Paste To WorkSheet With Bullets

tried making changes in the following code so as to copy paste only those cells which has any value.but could not succeed
according to the following even if there is no value a cell from a particular sheet it still gives a bullet.

to clear it more.
if there are 3 sheets having information then only 3 bullets with information should appear.

Sub X()

Dim strTemp As String
Dim shtTemp As Worksheet
Dim rngX As Range
Dim lngIndex As Long

For lngIndex = 5 To 10
Set shtTemp = ActiveWorkbook.Worksheets("Day" & lngIndex)
For Each rngX In shtTemp.Range("A1").Cells
strTemp = strTemp & Chr(149) & Chr(32) & rngX.Value & vbLf
Next
Next
Range("Sheet1!E5") = Left(strTemp, Len(strTemp) - 1)

End Sub