title: Run-error 1004 -- ActiveSheet.Paste
body: <p>I've recorded this macro, it keeps bugging on the ActiveSheet.Paste. Can someone help me please?</p>
  
  <p>thank you</p>
  
  <pre><code>Sub Macro13()
  '
  ' Macro13 Macro
  '
  
  '
  ActiveSheet.Range("$A$3:$L$10001").AutoFilter Field:=6, Criteria1:="O/S"
  Columns("A:E").Select
  Range("A2").Activate
  Selection.Copy
  ActiveSheet.Range("$A$3:$L$10001").AutoFilter Field:=6
  Workbooks.Add
  ActiveSheet.Paste
  Cells.Select
  Cells.EntireColumn.AutoFit
  Rows("1:1").Select
  Selection.RowHeight = 89.25
  Range("G7").Select
  Windows("Test.xlsm").Activate
  End Sub
  </code></pre>