You're always copying the data into the same place.
Directly after the line:
lastrow = Sheets("Memo_Register").Range("A65536").End(xlUp).Row
add the line:
Set Destn = Sheets("Memo_Register").Range("A" & lastrow).Offset(1, 0)
Change the line:
ccell.Resize(1, 2).Copy Destination:=Sheets("Memo_Register").Range("A" & lastrow).Offset(1, 0)
to:
ccell.Resize(1, 2).Copy Destn
then directly after this line add the line:
Set Destn = Destn.offset(1)
to move the location where the next copy will go.
All untested.