how to add range in this vba code

[prasadk]

how to add range in this vba code

like how to add column B range in this code by removing the selection

Sub RemoveNon() 

    For Each r In Selection
        vout = ""
        v = r.Text
        n = Len(v)
        For i = 1 To n
            ch = Mid(v, i, 1)
            If ch Like "[0-9]" Then
                vout = vout & ch
            ElseIf ch Like "|" Then
                vout = vout & ch
            End If
        Next i
        r.Value = vout
    Next r
End Sub