instead of
=A1 & vbNewLine & B1 & vbNewLine & C1
etc
use
=(if(left(A1.value,1)<>"#",A1 & vbnewline, "") & if(left(A1.value,1)<>"#",B1 & vbNewLine,"") &
......etc