Uh, how are you attempting to move it?
I'd just set the cell's data to a varaible and then move it.
i.e.
Dim tempVariable As String
tempVariable = SheetCodeName.Range(A6).value
SheetCodeName.Range(A7).value = tempVariable
No matter what is in the cell, it will be moved.