Tengo un archivo Excel habilitado para macros en el cual tengo una hoja en la cual he definido 6 listas, a las que necesito  ir agregando Items, he creado un formulario que contiene 6 TextBox y cada uno de ellos con un Botón de Comando para Ingresar el dato en la correspondiente tabla dinámica ubicada en la hoja "Listas" y un Botón de Comando  para hacer  una limpieza del TextBox.

Estoy recién iniciándome en la programación de macros y les agradecería muchísimo me pudiesen ayudar con un código para realizar esta tarea. En otra oportunidad los miembros JSDJSD y Antoni me brindaron una valiosísima ayuda en un ListBox con la que pude avanzar, de la cual estoy muy agradecido.

Muy atentamente,

Carlos

Listas.xlsm

Te dejo resuelta una lista, el resto, por asociación, no deberías tener problemas.

Private Sub CMBIngresaAutor_Click()
With Sheets("Listas")
   If Not Trim(TXTAutor) = "" Then
      .Range("B" & Rows.Count).End(xlUp).Offset(1) = TXTAutor
   Else
      Beep
   End If
   .Range("B7").CurrentRegion.Sort Key1:=.Columns("B"), Header:=xlYes 'Reordena la lista
   CMBLimpiaAutor_Click
End With
End Sub

Private Sub CMBLimpiaAutor_Click()
TXTAutor = ""
End Sub

 

Muchas gracias Antoni,  funciona perfectamente y además agregaste el orden de los items, te agradezco muchísimo tu ayuda, solo quisiera consultarte que exactamente realiza la instruccion "Beep", el resto lo he entendido perfectamente, Muchas gracias!!!!!!!!!!

Ya me ha quedado claro:

"Suena un tono por el altavoz del equipo.

Sintaxis = Beep"