Boa tarde !!!

Tenho a seguinte rotina, o que tenho que fazer para que depois do loop ele de continuidade no próximo comando, pois quando termina o loop está saindo da rotina.

'Apagar até chegar na linha desejada
Range("C1").Select
WCLinha = 1
Do While Cells(WCLinha, 3).Value <> ""
If Cells(WCLinha, 3).Value <> "Num. Ordem Vinculada" Then
Rows(WCLinha).Delete
Else
WCLinha = WCLinha + 1
End If

If Cells(WCLinha, 3).Value = "Num. Ordem Vinculada" Then Exit Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Loop
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''aqui

ActiveWorkbook.Worksheets("OM").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("OM").Sort.SortFields.Add Key:=Range("B2:B20000"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("OM").Sort
.SetRange Range("B1:I20000")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With