Excel Tables - Range

[Cellardoor]

Greetings everyone.

I'm having a little problem with my excel tables range

In the attached file, i tried to resume the situation as simple as i could. (check sheet "unit 1")

Hope its fully clear for everyone. If not, just ask me

Can you please help me with this? Any VBA or excel Solution is fine

Many thanks

Regards

Cellardoor

 

[PeterB]

Hi Cellardoor,

When you 'Clean the table' instead of using Table.DataBodyRange.ClearContents try Table.DataBodyRange.Offset(1,0).Delete then when you paste your next values in in DataBodyRange, it will automatically expand to cover the new contents.

Regards,

Peter

 

[Cellardoor]

Peter

Thanks for your answer.

I Believe i've mistaken in my explanation. Sorry.

Here is my "beginner" code - Arranged for the example

Step 2

Windows("Cellardoor_example").Activate
Sheets("Database").Select
Range("C2").AutoFilter Field:=1, Criteria1:="=For the example, the criteria is not important i guess ", Operator:=xlOr, Criteria2:="="
Range("C3:C1000").Copy
Sheets("Unit 1").Select
Range("C12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Step 3

I use the same code. But, as the "database" has less values, i get what i get in step 3 a)

Hope its clear

 

[PeterB]

Hi Celladoor,

Just add

Sheets("Unit 1").ListObjects("Banks38").DataBodyRange.Offset(1, 0).EntireRow.Delete

To the top of your procedure.

Regards,

Peter

 

[Cellardoor]

Hey Hey Hey...I guess this is it...

Many many thanks for your help Peter

Best Regards