title: Can't cut/paste visible rows from an autofiltered worksheet in an Excel 2007 macro
body: <p>I need to move the rows from a single worksheet into multiple destination sheets based on a variety of criteria. I figure using filters + copy/paste would be way faster than looping over each row and examining it to see where it belongs, but I'm not sure how to get a usable range after the data is filtered. Right now, I'm making a range of visible cells to grab like so:</p>
  
  <pre><code>Set rngSuspect = ActiveSheet.Cells.SpecialCells(xlVisible)
  </code></pre>
  
  <p>then pasting it like so (<code>NextRow</code> is an <code>Integer</code> holding the next blank row number):</p>
  
  <pre><code>rngSuspect.Cut Destination:=Sheets("Suspect WWAs").Rows(NextRow)
  </code></pre>
  
  <p>This fails with the message <code>The command you chose cannot be performed with multiple selections. Select a single range and click the command again.</code> I assume it has to do with the fact that the data is actually split into multiple areas because of the filtered rows. I'd rather not loop over each row in the range and move them individually. Surely there's a more elegant solution here...</p>