codigo en limite de filas de excel

expertos perdonen mi ignorancia pero tengo una inquietud y ojala puedan resolvérmela y es que he visto como existen macros que generan un numero consecutivo que va enumerando las filas de acuerdo al criterio que le pongan para iniciar, pero mi pregunta es que pasa con esos códigos que llegan al limite de filas en algunos casos 65536 y otros 1 048 576 ¿Cómo genero un código para que al llegar al tope se brinque a la siguiente columna a seguir con la numeración dado que el numero de filas ya se acabó?. Saludos

Private Sub UserForm_Initialize()
    Worksheets("DB").Activate
    Range("a2").Select If ActiveCell = Empty Then
            id= 1
        Else
            Range("a1").End(xlDown).Select
            id= ActiveCell.Value + 1
        End If end sub Private Sub btn_insertr_Click()
Dim strfila$
Worksheets("DB").Activate

Dim fila As String
[B65536].End(xlUp).Offset(1, 0).Select Range("c" + strfila$) = textbox1Range("b10").End(xlDown).Select id= ActiveCell.Value + 1

[/PHP]