Maybe try 
Sub copyandpaste()Dim sws As Worksheet
Dim dws As Worksheet
Set sws = Sheets("Sheet1")
Set dws = Sheets("Sheet2")
Sheets("Sheet1").Range("C10:C11").Copy
Sheets("Sheet2").Cells(10, .ColumnsCount).Left(xlToLeft).Offset(0, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Sheet1").Range("H20:H40").Copy
Sheets("Sheet2").Cells(20, .ColumnsCount).Left(xlToLeft).Offset(0, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
dws.Activate
End Sub