учиться надо будет всю жизнь.
Эх, если бы мне об этом сказали в первом классе, я бы очень расстроился )))
Sheets("list1").Cells(1, 1).Copy
Sheets("list2").Cells(1, 2).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Я для того и привёл такую трактовку термина "учиться", чтобы получалось грустно))