Visual Basic para Aplicaciones - vba - excel macro para insertar nuevos datos a una planilla en el lugar correcto

' acá les paso el código del ejemplo Y adjunto a este código una workbook de excel, con una sola hoja  de ejemplo en la cual agregar datos al final de la lista, según su formato.

 ' -----------------------------------

Dim Celda() As CellFormat

Dim Hoja_n As Workbook

Dim Celda_fin As String

Dim Celda_inicio As String

Dim R As Range

Sub Saltar_Celdas_Llenas(Hoja_n, Celda_inicio, Celda_fin)

  Application.Workbooks("tabla02").Worksheet(Hoja_n).Select

    Set Celda(0) = Celda_inicio

    Set Celda(1) = Celda_fin

    Do While Not IsEmpty(ActiveCell)

        ActiveCell.Offset(1, 0).Activate

    Loop

End Sub

Sub Ejemplo_33()

    Dim Nombre As String

    Dim Ciudad As String

    Dim Edad As Integer

    Dim Fecha As Date

    Dim Mas_datos As Integer

    Dim Nuevo_Nombre As String

    Call Saltar_Celdas_Llenas(Hoja_n, Celda_inicio, Celda_fin)

    ' ----------------

    Do

    Nombre = InputBox("Entre el Nombre (Return para Terminar) : ", "Nombre")

    Ciudad = InputBox("Entre la Ciudad : ", "Ciudad")

    Edad = Val(InputBox("Entre la Edad : ", "Edad"))

    Fecha = CDate(InputBox("Entre la Fecha : ", "Fecha"))

        With ActiveCell

        .Value = Nombre

        .Offset(0, 1).Value = Ciudad

        .Offset(0, 2).Value = Edad

        .Offset(0, 3).Value = Fecha

        End With

    ActiveCell.Offset(1, 0).Activate

    Mas_datos = MsgBox("Otro registro ?", vbYesNo + vbQuestion, "Entrada de datos")

    Loop While Mas_datos = vbYes

ActiveWorkbook.Save

End Sub

Sub Ejemplo_33()

    Dim Nombre As String

    Dim Ciudad As String

    Dim Edad As Integer

    Dim Fecha As Date

    Dim Mas_datos As Integer

    Dim Nuevo_Nombre As String

    Call Saltar_Celdas_Llenas(Hoja_n, Celda_inicio, Celda_fin)

    Do

        Nombre = InputBox("Entre el Nombre (Return para Terminar) : ", "Nombre")

        Ciudad = InputBox("Entre la Ciudad : ", "Ciudad")

        Edad = Val(InputBox("Entre la Edad : ", "Edad"))

        Fecha = CDate(InputBox("Entre la Fecha : ", "Fecha"))

        With ActiveCell

            .Value = Nombre

            .Offset(0, 1).Value = Ciudad

            .Offset(0, 2).Value = Edad

            .Offset(0, 3).Value = Fecha

        End With

        ActiveCell.Offset(1, 0).Activate

        Mas_datos = MsgBox("Otro registro ?", vbYesNo + vbQuestion, "Entrada de datos")

    Loop While Mas_datos = vbYes

    ActiveWorkbook.Save

End Sub

Sub Saltar_Celdas_Llenas(Hoja_n, Celda_inicio, Celda_fin)

    Application.Workbooks("tabla02").Worksheet(Hoja_n).Select

    Set Celda(0) = Celda_inicio

    Set Celda(1) = Celda_fin

    Do While Not IsEmpty(ActiveCell)

        ActiveCell.Offset(1, 0).Activate

    Loop

End Sub

Sub ins_dtos()

Dim Nombre As String

Dim Ciudad As String

Dim Edad As Integer

Dim fecha As Date

' Llamada a la función Saltar_Celdas_Llenas, el programa salta aquí a ejecutar las

'instrucciones de este procedimiento y luego vuelve para continuar la ejecución a partir de la

'instrucción Do

Call Saltar_Celdad_Llenas

Do

Nombre = InputBox("Entre el Nombre (Return para Terminar) : ", "Nombre")

Ciudad = InputBox("Entre la Ciudad : ", "Ciudad")

Edad = Val(InputBox("Entre la Edad : ", "Edad"))

fecha = CDate(InputBox("Entra la Fecha : ", "Fecha"))

With ActiveCell

.Value = Nombre

.Offset(0,1)  ´AQUI ME DA UN ERROR DE SINTAXIS

.Value = Ciudad

.Offset(0,2)

.Value = Edad

.Offset(0,3)

.Value = fecha

End With

ActiveCell.Offset(1, 0).Activate

Mas_Datos = MsgBox("Otro registro ?", vbYesNo + vbQuestion, "Entrada de datos")

Loop While Mas_Datos = vbYes

End Sub

Sub Saltar_Celdad_Llenas()

Worksheets("Hoja1").Activate

ActiveSheet.Range("A1").Activate

Do While Not IsEmpty(ActiveCell)

ActiveCell.Offset(1, 0).Activate

Loop

End Sub

Sub Ejemplo_33()

    Dim Nombre As String, Ciudad As String, Edad As Integer, Fila As Long, _

        Fecha As Date, Mas_datos As Integer, Nuevo_Nombre As String

    Fila = 1

    Do

        Nombre = InputBox("Entre el Nombre (Return para Terminar) : ", "Nombre")

        If Nombre = "" Then Exit Sub

        Ciudad = InputBox("Entre la Ciudad : ", "Ciudad")

        Edad = Val(InputBox("Entre la Edad : ", "Edad"))

        Fecha = CDate(InputBox("Entre la Fecha : ", "Fecha"))

        While Cells(Fila, "A") <> ""

            Fila = Fila + 1

        Wend

        Cells(Fila, "A") = Nombre

        Cells(Fila, "B") = Ciudad

        Cells(Fila, "C") = Edad

        Cells(Fila, "D") = Fecha

        Mas_datos = MsgBox("Otro registro ?", vbYesNo + vbQuestion, "Entrada de datos")

    Loop While Mas_datos = vbYes

    ActiveWorkbook.Save

End Sub