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]

Yeah, it gets through everything and errors out on that line. This is exactly the code I am running, with your debug added in.

Sub ClearColumns()
    Dim lr As Long
    
    Debug.Print Sheets("Sheet1").Name
    Debug.Print Sheets("Sheet2").Name
    Debug.Print Sheets("Sheet1").ListObjects("Table5").ListColumns(3).DataBodyRange.Address
    
    lr = Sheets("Sheet2").Cells(Rows.Count, "G").End(xlUp).Row

    Sheets("Sheets2").Range("G2:G" & lr).Copy Sheets("Sheet1").ListObjects("Table5").ListColumns(3).DataBodyRange.Cells(1)
    
End Sub

 

[scorziello]

I feel so dumb that I missed that s on Sheets2. Thank you for your help!!

 

[Michael M]

It happens to us all ...

 

[Peter_SSs]

I didn't specifically mention it but I had changed Sheets to Sheet in my code and assumed that you would copy/paste my code to test.
Anyway, main thing is that you got it sorted in the end.