Stripping row/col headings from a range (excel2000)

[ChrisGreaves]

I'm not the world's most powerful user of RANGE in Excel.
I am given a range which identifies a block of data, including a row of column headings and a column of row headings (please see image).
I want to obtain a range that describes just the numeric data.
I came up with this, but as always, wonder if there is a better way:

Code: Select all

Sub test()
    Dim rngData As Range
    Set rngData = selection
    Dim rngNumeric As Range
    Set rngNumeric = Range(rngData.Cells(2, 2), rngData(rngData.Rows.Count, rngData.Columns.Count))
    rngNumeric.Select
End Sub

My objective is to identify the data identified by the red rectangle below:

1.JPG

[HansV]

Other options:

Set rngNumeric = rngData.Offset(1, 1).Resize(rngData.Rows.Count - 1, rngData.Columns.Count - 1)

or

Set rngNumeric = Range(rngData.Offset(1, 1), rngData.Offset(1, 1).End(xlDown).End(xlToRight))

[ChrisGreaves]

Other options:

Thanks Hans.
(Mutters to self: "Oh Great; just when I thought I was getting the hang of Range I'm confronted with Resize ...")

[HansV]

Wait until I introduce you to Intersect and Union...