lastrow = Cells(Rows.Count, "A").End(xlUp).Row

Rows(lastrow).Offset(1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrAbove

Rows(lastrow).EntireRow.Copy

Rows(lastrow).Offset(1).PasteSpecial xlPasteFormats

Application.CutCopyMode = False

Not: Konu başlıklarını çok uzun tutmayın sınır 85 olmasına rağmen her mesajın başına "cvp:" gibi bir ön ek eklediğinden "sınırı aştı" uyarısı veriyor. yani başlık 80den uzun olmasın.