How to include a Range in a code to create a xlColumnStacked Chart?

Hello
I have this code to create a Chart:

Please Login or Register  to view this content.

But, when I run the code step by step, VBA displays three graphs and finally creates the graph from Source:=Sheets("Sheet1"). Range("A2:D4")

However, I need to create the Chart from this code:

Please Login or Register  to view this content.

I’ve been googling for hours and I haven’t been able to find a way to include this code
I appreciate if anyone can help me.

Cheers all

First of all, Thank you for your reply.
Your line of code is new to me and selects the whole range.
However, from the last column with data, I need to move left two columns.

This the code edited:

Please Login or Register  to view this content.

.

The next step is from the last row with data to move one rows upwards, but I failed to edit the Offset.

Even though VBA creates the graph I need, I included this line:

Please Login or Register  to view this content.

to delete the Fullseriescollection(1).

Also, I really appreciate any help to upwards one row from the last row.