VBA: Copy paste without clipboard

Is there a way to do this as one line copy/paste without using the clipboard. 开发者_运维知识库copy one range - row to another sheet paste range - entire row. I need values, not formula.

 Sheets("Data").Select 
 ActiveCell.EntireRow.Copy

 Sheets("TSP").Select
 ActiveCell.PasteSpecial Paste:=xlPasteValues

This code copy values (not formulas).

Sub a()
  Worksheets("Sheet2").Range("TS").Value=Worksheets("Sheet1").Range("1:1").Value
End Sub  

Where "TS" is the name of a range (one row).

Is this what you are trying to achieve?

Edit

To copy the active row to Sheet2.Row2 (for example) you may try:

Sub a()
 Dim myrow As Integer
 myrow = ActiveWindow.RangeSelection.Row
 Worksheets("Sheet2").Range("2:2").Value = Worksheets("Sheet1").Rows(myrow).Value
End Sub

HTH!

For some reason, there isn't. PasteSpecial is all about the clipboard.

If you only need values, make a For loop copying them.