Copy cell macro
Will it work by doing 2 copy & pastes?
Range("C12:C12").Select
Selection.Copy
Sheets("Liste").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:=True, Transpose:=False
Range("D12:D22").Select
Selection.Copy
Sheets("Liste").Select
Range("C1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:=True, Transpose:=False
|