I have some code that will take data from a user form and place in a table.
The table contains a weekly list for top 8 defects. On the user form there is
a check box this box means the issue did not change from last week so the
code looks at the table, copies the corresponding row and should paste the
row in the next available cell. Below is my code. I'm having problems pasting
the data. I'm trying to paste the data without selecting the range to paste
to.

With Workbooks("Tables").Sheets("Top8").ListObjects("tb lTop8Issue")
.Range.AutoFilter Field:=7
.Range.AutoFilter Field:=1
.Range.AutoFilter Field:=7, Criteria1:=(iCW - 1)
.Range.AutoFilter Field:=1, Criteria1:=iLoop
.DataBodyRange.SpecialCells(xlCellTypeVisible).Cop y
.Range.AutoFilter Field:=1
.Range.AutoFilter Field:=7
.Range(ActiveCell.Offset(iLoop, 0), ActiveCell.Offset(iLoop,
6)).PasteSpecial Paste:=xlValues <- Problem with this line
End With

Any Suggestions?