Copy values from worksheet to worksheet

If you mean with VBA :-

Sheets("Sheet1").Range("A1")=Sheets("Sheet2").Range("A1")

Celia

Thanks Celia. Inspired by your no-select method, I'm trying to get out of copy & paste but I can't get this to loop (it will copy once though every other cell in "H" & "J" have appropriate #'s).

Sub pasteto()
Set sortnum = Sheets("Sheet1").Range("H5")
Set pasterng = sortnum.Offset(0, -7).Range("A1:I2")
Set newrange = Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0).Range("A1:I2")
Do Until sortnum.Value = 0
If (sortnum.Value < 2 Or sortnum.Value = 2) And (sortnum.Offset(0, 2).Value = 2 Or sortnum.Offset(0, 2).Value > 2) Then
newrange.Value = pasterng.Value
End If
Set sortnum = sortnum.Offset(2, 0)
Loop
End Sub

What am I missing?

Ben
You need to re-set the newrange before looping to the next sortnum. Add this line before "Loop" :-

Set newrange = Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0).Range("A1:I2")

Celia

Thanks -- very fast