Copy Pasting data instead of the formula, Code

[HeyThere]

Hey, i am trying to copy and paste data entered into a cell into another sheet, then moves down a cell via the click of a button, I am aware that this Code


ActiveSheet.Rows("1:1").EntireRow.Cut Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Offset(1)</pre>
Cuts the whole line of information and pastes it into the next sheet and moves it down one, however the only problem is that this also copies the borders, font and everything else in that row which is a problem.
So instead i am wondering if it is possible just to cut/copy and paste the entered text data into the other sheet via a code.

Another question I have is if its possible to display the data being displayed from another cell, without just displaying the formula/function within the cell. for example: if a cell contained the formula "=(A1)" if A1 contained the formula "=(A2+A3)" i would like it to show the answer to A2+A3 instead of the expected "=(A2+A3)".

Sorry if this doesn't make any sense, but please try to help x

 

[Jon von der Heyden]

For the first question. You can copy > paste values and then delete the copy range:

With ActiveSheet.Rows("1:1").EntireRow
    .Copy 
    Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial xlValues
    .Delete
End With

 

[Steeviee]

You could try using the code

pastespecial

Excel recognises this and just inputs the values.

HTH

 

[VoG]

For the first question try

ActiveSheet.Rows(1).Cut
Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues