Puedes hacerlo de dos formas:
Código:
Private Sub CommandButton1_Click()
Range("A1:A4").Copy
Hoja2.Range("C1").PasteSpecial Paste:=xlPasteValues, Transpose:=True
End Sub
Quedándote con la "Hoja1" seleccionada. Ó también:
Código:
Private Sub CommandButton1_Click()
Range("A1:A4").Copy
Application.Goto Hoja2.Range("C1")
Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True
End Sub
dentro de la línea que estabas manejando.
Espero que te haya sido útil.
Saludos