Copy and paste a row from a table

B

Brad

I have some code that operates in a loop that should filter a table for a
particular value, copy the visible cells and then paste them at the bottom of
the table. The filtering and copying works, but having trouble with pasting
to the bottom of the table. Here is the code snipet, any help would be
greatly appreciated.

With
Workbooks("Tables").Sheets("Top8").ListObjects("tblTop8Issue")
.Range.AutoFilter Field:=7
.Range.AutoFilter Field:=1
.Range.AutoFilter Field:=7, Criteria1:=(iCW - 1)
.Range.AutoFilter Field:=1, Criteria1:=iLoop
.DataBodyRange.SpecialCells(xlCellTypeVisible).Copy
.Range.AutoFilter Field:=1
.Range.AutoFilter Field:=7
Error -> .Range("tblTop8Issue[[#Headers],[Issue_Num]]").End(xlDown).Select
here ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Value = Top8CpaEntryForm.txtWeek
End With
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Copying a row from a table 0
Conditional If/Else statement 2
Creating and transposing a multiarray 3
Combine Two Different Worksheet_Change codes 9
Dim an array from a filtered Range 1
OssieMac help with code. 3
Help me4 2
Trying to get a macro to run when cell selection changes. 2

Top