Help Pasting into a table

[reeliq]

Can someone help me paste my information into a table.

I'm copying information from one spreadsheet and adding it to another.

I am adding a new line to the bottom of the table and want the information to be copied there, but I keep getting an error.

Here is the code I have so far

If (ActiveCell = "John Smith") Or (ActiveCell = "James Jones") Then
Range(Cells(AC, 1), Cells(AC, 3)).Copy
Workbooks("Quality Tracker").Activate
Sheets("Eric's Team").Select
If (ActiveCell = "") Then
ActiveCell.Select
Else: Cells(1, 1).Select
Selection.End(xlDown).Select
Last = ActiveCell.Row
Rows(Last).Select
Selection.ListObject.ListRows.Add
End If

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

End If
Next xReps

 

[hiker95]

reeliq,

Try changing this:
Range(Cells(AC, 1), Cells(AC, 3)).Copy


To this:
Range("AC1:AC3").Copy

Or this (AC is column 29):
Range(Cells(1,29), Cells(3,29)).Copy

 

[reeliq]

This still was producing an error.

AC actually is set up as ActiveCell.Row.

What I'm looking to do is loop a list of names in a Range. When I find a specified name to copy certain cells on that row, and copy and paste them to another sheet again by finding that name and pasting them in the same row.

Example:

Sheet 1

Find John Smith: Copy Cells 3-6 of the same row when found.

Paste on Sheet 2 in cells 2-5 in the same row that John Smith is located on Sheet 2.

Not sure if my code is adequately doing this.