VBA Copy table columns to another worksheet

[Melimob]

Hi

Similar to my other query

I want to copy and paste or do value = value for a dynamic range of a column table (meaning last row may always differ) in to another worksheet, starting at a specific cell.

Here is what I tried:

Sub PotentialClientList()


Dim dbR As Range
    Set dbR = Sheets("ABC Clients ").ListObjects("Table6").DataBodyRange
    
  Sheets("Partner Slide").Range(C10).Value = dbR.Columns(1).Value


    
    


End Sub

Many thanks for any advice!

 

[James006]

Hi,

You can test following

ActiveSheet.ListObjects("Table6").HeaderRowRange.Select

Hope this will help

 

[Melimob]

Hi,

You can test following

ActiveSheet.ListObjects("Table6").HeaderRowRange.Select

Hope this will help

Hi James

Thank you for your response but I am a real novice and trying to has together code by searching on internet.

Where would I place your piece of code within mine?

I tried it in various places but still get an error.

I think my original is faulty anyhow.

All I need to do is take column B (1st column of my table6) values and copy paste special to start from cell c10 down in my destination sheet?

Many thanks for any advice.

 

[James006]

Hi,

You can test

Sub PotentialClientList()Dim dbR As Range
    Set dbR = Sheets("ABC Clients ").ListObjects("Table6").ListObjects("Table6").HeaderRowRange
    dbR.Copy destination:=Sheets("Partner Slide").Range("C10") 
End Sub

Hope this will help