We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Sub MakeExceptions() Application.Calculation = xlCalculationManual Application.ScreenUpdating = False Dim cel As Range For Each cel In Range("AC6:AC756") If cel = 1 Then cel.EntireRow.Cut Windows("Exceptions.xls").Activate Dim pastePt As Range Set pastePt = [TopA].End(xlDown).Offset(1, 0) pastePt.Select ActiveSheet.Paste Else End If ThisWorkbook.Activate Next Application.CutCopyMode = False 'Call DeleteExceptions Application.ScreenUpdating = True End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.