Additional Q on Macro to Move Entry to Last Line of a List

[Tysone]

One more Q arose on this.

In this, is there a way to make it, COPY, paste special values too?


Sub copytolist()
Sheets("Data Enter").Activate
Range("A2:C2").Copy Destination:=Sheets("Data List") _
.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End Sub




Thanks

Tyson

 

[Michael]

try adding this to the bottom of your Macro

ActiveSheet.Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select

 

[Tysone]

No that wont work because that removes all the formulas on the "Data
Entry" tab and turns them ALL into values. I just need A2:C2 to be
copied paste special vales to the "Data List" Tab. Anyone else care
to take a swipe at this?

Thanks

Tyson


Sub copytolist()
Sheets("Data Enter").Activate
Range("A2:C2").Copy Destination:=Sheets("Data List") _
.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End Sub