title: Copy all filtered data from one worksheet into new workbook
body: <p>I am having trouble finding a surefire to copy only visible cells from one worksheet into a new workbook. My initial workbook is filtered. Something along the lines of:</p>
  
  <pre><code>Sub RangeToNew()
  
      Dim newBook as Workbook
      Set newBook = Workbooks.Add
  
      ThisWorkbook.Worksheets("worksheet").SpecialCells(xlCellTypeVisible).Copy _
          Before:=newBook.Worksheets(1)
  
  End Sub
  </code></pre>
  
  <p>This doesn't work.</p>