how to add range in this vba code

[p45cal]

it's deleting heading also of Customer Mobile Number kindly please change this code to avoid heading when i run this vba

Sub RemoveNonAlphaNum()
Set Rng = Intersect(ActiveSheet.UsedRange, Columns("B"))
For Each r In Intersect(Rng, Rng.Offset(1)) 'this will fail if you have something in the bottommost row of the entire sheet.
  vout = ""
  v = r.Text
  n = Len(v)
  For i = 1 To n
    ch = Mid(v, i, 1)
    If ch Like "[0-9]" Or ch Like "|" Then vout = vout & ch
  Next i
  r.Value = vout
Next r
End Sub