Application.ScreenUpdating = False Dim i As Integer For i = 1 To 200 If Sheets("CARICO").Cells(i, 32) <> "" Then Sheets("CARICO").Cells(i, 32).Copy Sheets("ORDINI_DOPPI").Range("A1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValues End If Next i Application.CutCopyMode = False Application.ScreenUpdating = True MsgBox "OTTIMO..HO COPIATO." End Sub |