i have an array from a range selection, now i want to filter that array to create a new array based on my criteria...and also changed the values in one column.

arr = ActiveSheet.Range(selection.Address).Value

Point Chainage[mi] CRdc[mm/year]
[L0026_BH_SM_GW_201] 0 0.82
[L0026_BH_SM_GW_541] 1.2 0.53
[L0026_BH_SM_GW_863] 1.8 1.32
[L0026_REC_BH-700-CR-102BH] 2.1 2.54
[L0026_REC_BH-700-CR-102BH] 2.9 6.81
[L0026_BH_SM_GW_1835] 3.7 0.48
[L0026_BH_SM_GW_26332] 4.2 1.97

for the new array of values, i want to get rid of any row (in the range, NOT entire row) that doesnt contain "_GW_" in the first column. Then I would like to strip out some text in the first column of the array such that only the number after "_GW_" remains:

[L0026_BH_SM_GW_541] would be 541
[L0026_BH_SM_GW_26332] would be 26332

Hoping there is a simple method for this that doesnt require a bunch of code. Also dont want to use autofilter.