Copy data from entire column into specific table

[scorziello]

I am trying to copy data from Sheet2 column G to Table1 Column3 on Sheet1. Here is the code I have so far but keep getting an error

Sub moveStuff()
Dim lr As Long
lr = Sheets("Sheet1").Cells(Rows.Count, "G").End(xlUp).Row
Sheets("Sheets1").Range("G2:G" & lr).Copy Sheets("Sheet2").ListObjects("Table5").ListColumns(3)
End Sub

 

[scorziello]

Edit: I am specifying which table because Sheet1 will have 3 tables when it is done.

 

[Peter_SSs]

I am trying to copy data from Sheet2 column G to Table1 Column3 on Sheet1.

If this description is correct then for one thing you have the sheets in your code the wrong way around as it is trying to copy from Sheet1 column G to a table on Sheet2.
So, based on the word description above, try this

Sub moveStuff()
  Dim lr As Long
  
  lr = Sheets("Sheet2").Cells(Rows.Count, "G").End(xlUp).Row
  Sheets("Sheet2").Range("G2:G" & lr).Copy Sheets("Sheet1").ListObjects("Table5").ListColumns(3).DataBodyRange.Cells(1)
End Sub

 

[scorziello]

If this description is correct then for one thing you have the sheets in your code the wrong way around as it is trying to copy from Sheet1 column G to a table on Sheet2.
So, based on the word description above, try this

Sub moveStuff()
  Dim lr As Long
 
  lr = Sheets("Sheet2").Cells(Rows.Count, "G").End(xlUp).Row
  Sheets("Sheet2").Range("G2:G" & lr).Copy Sheets("Sheet1").ListObjects("Table5").ListColumns(3).DataBodyRange.Cells(1)
End Sub

Thank you for the reply, and sorry for the error. I am still getting a Subscript out of range error when I run it with your changes

 

[Alex Blakenburg]

In your text you had Table1 but in your code you had Table5.
Peter has opted to use Table5 as the name in the code. If this is not correct substitute the real Table name and see if that fixes it.

 

[scorziello]

The table name is correct.

 

[Alex Blakenburg]

Copy the code below immediately after the Dim lr line and tell us which line is highlighted in yellow when you get the error message.

  Debug.Print Sheets("Sheet1").Name
  Debug.Print Sheets("Sheet2").Name
  Debug.Print Sheets("Sheet1").ListObjects("Table5").ListColumns(3).DataBodyRange.Address

 

[scorziello]

Getting the error with
Sheets("Sheets2").Range("G2:G" & lr).Copy Sheets("Sheet1").ListObjects("Table5").ListColumns(3).DataBodyRange.Cells(1)

 

[Alex Blakenburg]

Did you copy the code I gave you to the beginning of your code and then run the code ?
I would have expected it to error out on one of those lines and not make it as far as the line you are indicating.

 

[Michael M]

Shouldn't this

Sheets("Sheets2")

BE

Sheets("Sheet2")