title: How to Copy-PasteSpecial cells from filtered range
body: <p>Here's my code below.</p>
  
  <pre><code>Sub AddExistingItemToRWP()
  Dim AddRow As Integer
  Dim eLastRow As Integer
  AddRow = Worksheets("Recipe Workarea-Product").Range("A" &amp; Rows.Count).End(xlUp).Row
  eLastRow = Worksheets("Additional Existing Raw Mat.").Range("A" &amp; Rows.Count).End(xlUp).Row
  Dim Rng As Range
  Sheets("Additional Existing Raw Mat.").Select
  Set Rng = ActiveSheet.AutoFilter.Range
  With Sheet12
      With .Range("$A$1:K" &amp; eLastRow)
           .AutoFilter Field:=11, Criteria1:=("Y")
           .SpecialCells (xlCellTypeVisible)
           .Offset(1, 0) _
           .Copy Destination:=Sheet8.Range("H" &amp; AddRow + 1)
           .PasteSpecial Paste = xlPasteValues
  
      End With
  End With
  AutoFillCols (AddRow)
  Sheets("Additional Existing Raw Mat.").Select
  End Sub
  </code></pre>
  
  <p>The .pastespecial cells seems to be not working. What is the correct syntax for this?</p>