Boa noite pessoal,

Não sei se é pedir muito, mas estou com um problema que já está me deixando maluco, se alguém poder me ajudar agradeço.

Preciso numerar uma linha sim e outra não algo assim:

ID Curso Professor Inicio....
1 .............xxxxxx ..........xxxxxxxx .......xxxxx.....
OBS
2 ............xxxxxxx ..........xxxxxxx .........xxxxxxx.....
OBS
3 ...........xxxxxxxxx ........xxxxxxx ...........xxxxxxx...
OBS
....... e assim por diante.

o campo OBS já vai fica preenchido na planilha, preciso de um código para numerar dessa forma quando eu aperto o botão salvar,

estou usando isso, mas sempre quando salva a próxima linha sempre fica 1.

Por favor me ajudem.

Private Sub cmdSalvar_Click()

Worksheets(1).Range("A3").Select
 Do
    If Not (IsEmpty(ActiveCell)) Then
    ActiveCell.Offset(1, 0).Select
    
 End If
 
 Loop Until IsEmpty(ActiveCell) = True
 
 NumeraRegistro
    
 ActiveCell.Offset(0, 1).Value = ComboBoxCurso.Text
 ActiveCell.Offset(0, 2).Value = TextBoxInicio.Text
 ActiveCell.Offset(0, 3).Value = TextBoxTermino.Text
 ActiveCell.Offset(0, 4).Value = ComboBoxInstrutor.Text
 ActiveCell.Offset(0, 5).Value = ComboBoxfrequentantes.Text
 ActiveCell.Offset(0, 6).Value = ComboBoxPresentes.Text
 ActiveCell.Offset(0, 7).Value = ComboBoxEvasao.Text
 ActiveCell.Offset(0, 8).Value = ComboBoxTurno.Text
 ActiveCell.Offset(0, 9).Value = TextBoxData.Text
 ActiveCell.Offset(0, 10).Value = ComboBoxStatus.Text
 
Do

If (IsEmpty(ActiveCell)) Then
    ActiveCell.Offset(2, 0).Select
    
 End If
 
 Loop Until Not IsEmpty(ActiveCell) = True
 

 ActiveCell.Offset(2, 1).Value = TextBoxObs.Text
 
 LimparCampo
 
 ActiveWorkbook.Save

 MsgBox "Resgistro salvo com sucesso!", vbInformation, "Registro"
 
End Sub

Public Sub NumeraRegistro()

If IsNumeric(ActiveCell.Offset(-1, 0)) Then
   ActiveCell = ActiveCell(-1, 0) + 1
   
   Else
   
   ActiveCell = 1
   
End If

End Sub