Try to change this:
lngDestLrow = DestSht.Cells(Rows.Count, "B7").End(xlUp).Row
to this:
lngDestLrow = DestSht.Range("B" & Rows.Count).End(xlUp).Row + 1
Change the code accordingly to this part:
DestSht.Range("B" & lngDestLrow) = SrcSht.Range("C14")
Let me know if it help.