Create Chart From Selection

I have a table of data which moves up and down my report depending on user input changes to the source data.

I have written some VBA code to generate a chart based on this table of data. I have managed to create a basic chart from this table. However I need to change the series (on the chart) from rows to columns so that it is displayed correctly. For this I need to have the cell references within the code belonging to the actual chart.

If I was writing the code for the chart with an absolute reference I would write it as:

ActiveChart.SetSourceData Source:= Sheets("Group").Range("B50:F53"), PlotBy:=xlColumns

This obviously works fine, however when a user makes a change to the source data the table is now out of sync with the chart references.

I am trying to write it as:

ActiveChart.SetSourceData Source:=Sheets("Group").Range(ActiveCell.Offset(-1, -1), ActiveCell.Offset(2, 3)), PlotBy:=xlColumns

Where am I going wrong?

My full code is as follows:

Private Sub CreateRegionChart()
Worksheets("group").ChartObjects.Item(2).Delete

Range(ActiveCell.Offset(-1, -1), ActiveCell.Offset(2, 3)).Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
'ActiveChart.SetSourceData Source:=Sheets("Group").Range(ActiveCell.Offset(-1, -1), ActiveCell.Offset(2, 3)), PlotBy _
:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Group"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Title"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Label"
End With