Offset TotalsRowRange at start but not end

I'm using VBA to populate a chart in excel and the a range I need is the header row of a data table.

I don't want the first four columns so I have used the following:

Set headrow = ActiveSheet.ListObjects("byteam").HeaderRowRange.Offset(0, 4)

The problem is that it also extends the range four cells to the right of the end of the header row. How can I keep the end of the range as the end of the header row?

Thanks in advance...

Perhaps this:-

Dim headrow As Range
With ActiveSheet.ListObjects("byteam")
    Set headrow = .HeaderRowRange(5).Resize(, .HeaderRowRange.Count - 5)
End With

Cheers for that - it works perfectly.

This really helps me out with the way the source data is structured as I will often need to offset the start of the range but not the end.

Thanks again!

You're welcome