Problems with using the MATCH function in EXCEL

Sub USEMATCH ()
Dim s_p As String, e_p As String
Dim num As Integer
Num = 0
For Each M In Range ("a: ")
If M. Value <> "Then
Num = num + 1
Else
Exit
End If
Next M
Erange = "B" & num
Erange = "b2:" & erange
N = 1
A = 2
Currange = "B" &
Cells. Select
Selection. Sort Key1: = Range ("A2"), Order1: = xlAscending, Key2: = Range ("B2 ")_
, Order2: = xlAscending, Header: = xlGuess, OrderCustom: = 1, MatchCase: = _
False, Orientation: = xlTopToBottom, SortMethod: = xlPinYin, DataOption1: = _
XlSortNormal, DataOption2: = xlSortNormal
Columns ("A: A"). Select
Selection. Insert Shift: = xlToRight Insert a column to the leftmost
Set curCell = Worksheets (Sheets (1). Name). Range (currange)
For Each M In Range (erange)
On Error GoTo ErrorHandler
If M. Offset (0,-1). Value <> "Then GoTo mynext