Cannot allow multiple Range in a Sub

[techissue2008]

Hi



I tried the following code but it shows an error:

Sub test2col()
Sheets("Sheet6").Cells.ClearContents
Sheets("Sheet6").Range("A:B").Value = Sheets("Sheet1").Range("A:B").Value
Sheets("Sheet6").Range("D").Value = Sheets("Sheet1").Range("C").Value
End Sub

It said

Sheets("Sheet6").Range("D").Value = Sheets("Sheet1").Range("C").Value
End Sub

has error.



Does a Sub not support to use Range more than one time? If so, do I need to write many Sub to do it?



Thanks for advance.