Hi

I am trying to move a cell value from one sheet to another without loosing its format.

This i my cell with format:

Capture.JPG

This i my cell when i am moving the cell value and adding two lines.

Capture1.JPG

How can i move the cell value and keeping the format?

Atm i am using a variable to store active cell value and adding two lines through my userform:

ActiveCell.Select
    SortCell = ActiveCell.Address
    FTW = ActiveCell.Value
    
    Sheet5.Select
    Sheet5.Protect Password:="Sec Pack", userinterfaceonly:=True
    Range("A4").Select

Do Until Selection.Value = ""

If ComboBox1.Value = ActiveCell.Value Then
    
    ActiveCell.Offset(10000, 0).Select
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Value = FTW & Chr(10) & TextBox1 & Chr(10) & TextBox2