将范围转换为数字，其中范围中的最后一个单元格是一个值中的最后一个单元格

Question

我正在尝试将特定列从文本转换为数字，并停在包含值且没有太多运气的最后一个单元格。目前它只转换包含值的列中的最后一个单元格。范围需要是H2到最后一个包含H列值的单元格：

Range("H2").End(xlDown).Select
For Each XCELL In Selection
XCELL.Value = CDec(XCELL.Value)
Next XCELL