マクロで行コピーし貼り付ける方法

質問

以下のような構文はエラーになりますが、一体こどが間違ってますでしょうか？一行をコピーして、ws8のo行に貼り付けたいですが
ws1.Range(Cells(w, 1), Cells(w, 256)).Copy Destination:=ws8.Range(Cells(o, 256))

回答No.1

hana-hana3

＞Destination:=ws8.Range(Cells(o, 256))

貼付け先に余裕が無いからです。（セルの範囲外になります。）
２００７以外では、２５６列あるデータを２５６列目に貼付ける事ができませんよ。

補足

しかしRange(Cells(2, 1), Cells(2, 10)).Copy Destination:=ws8.Range(Cells(2, 1))に変えてもエラーになります。

やりたい事は
　　　　　　　　　　　 ws8.Range("A" & o) = Range("A" & w): _
ws8.Range("B" & o) = Range("B" & w): _
ws8.Range("C" & o) = Range("C" & w): _
ws8.Range("D" & o) = Range("D" & w): _
ws8.Range("E" & o) = Range("E" & w): _
ws8.Range("F" & o) = Range("F" & w): _
ws8.Range("G" & o) = Range("G" & w)
を簡潔にしたいだけですが、教えて下さい、お願いします。