Buongiorno,
sto cercando di creare questa macro,
Sub Archiviadati()
Dim NumeroRighe As Long
Sheets("Import").Activate
Range("AD18:AL18").Copy
Sheets("riepilogo CH").Activate
NumeroRighe = Range("A1").CurrentRegion.Rows.Count
If IsEmpty(Range("A" & NumeroRighe)) Then
Selection.PasteSpecial Paste:=x1PasteValues
Range("A1").Select
Else
Range("A" & NumeroRighe + 1).Select
[u]Selection.PasteSpecial Paste:=x1PasteValues[/u]
Range("A1").Select
End If
Sheets("Import").Activate
Application.CutCopyMode = False
End Sub
E mi da l'errore dove ho sottolineato.
non capisco che devo fare,qualcuno mi aiuta per favore?
grazie