
Sub Copia()
Sheets("Foglio1").Range("N3:S3").Copy
Sheets("Foglio2").Range("N4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Sheets("Foglio1").Range("N5:S5").Copy
Sheets("Foglio2").Range("O4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End Sub |
