title: Copy/Paste areas aren't the same size
body: <p>I keep getting an error that I was not getting before with this VBA code: </p>
  
  <pre><code>    ActiveSheet.Select
      Range("A1:H100").Select
      Selection.AutoFilter
      ActiveSheet.Range("$A$1:$H$100").AutoFilter Field:=1, Criteria1:="&lt;&gt;"
      Selection.Copy
      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone SkipBlanks _
          :=False, Transpose:=False
      ActiveSheet.Copy
      fileSaveName = Application.GetSaveAsFilename( _
      fileFilter:="Text Files (*.txt), *.txt")
      If fileSaveName &lt;&gt; False Then
      ActiveWorkbook.SaveAs Filename:=fileSaveName, FileFormat:=xlText, CreateBackup:=False
      MsgBox "File salvato al percorso " &amp; fileSaveName &amp; "."
      End If
  
        ActiveSheet.Range("$A$1:$H$100").AutoFilter Field:=1
  </code></pre>
  
  <p>telling me that copy/paste areas are not the same. What I'm trying to do is filter results, copy them and paste in a new workbook, save it as .txt and unfilter on the original workbook.</p>
  
  <p>thanks for your assistance!</p>
  
  <p>S</p>