Edición a rango desde un listbox

Te anexo la macro actualizada:

Private Sub CommandButton5_Click()
'Act.Por.Dante Amor
    Dim fila
    Dim PT As Double
    Dim mensaje As String
    Dim h
    Set h = Sheets("BASE")
    '
    If TextBox1.Value = "FECHA" Then
        MsgBox "Selecciona un dato de la lista"
        Exit Sub
    End If
    If ListBox1.ListIndex = -1 Then
        MsgBox "Selecciona un dato de la lista"
        Exit Sub
    End If
    '
    mensaje = MsgBox("DESEA ANULAR EL REGISTRO" & TextBox2.Value & " DE LA BASE?", vbOKCancel, "CONFIRMACION")
    If mensaje = vbCancel Then Exit Sub
    '
    anulando = True
    fila = ListBox1.ListIndex + 1
    TextBox4 = "0"
    TextBox5 = "0"
    TextBox6 = "0"
    TextBox11 = "0"
    TextBox13 = "ANULADO"
    TextBox17 = "0"
    TextBox18 = "0"
    TextBox19 = "0"
    '
    h.Range("A" & fila) = CDate(TextBox1) 'Fecha
    h.Range("B" & fila) = TextBox5        'ENTREGA
    h.Range("C" & fila) = TextBox15       'CLIENTE
    h.Range("D" & fila) = TextBox8        'OC
    h.Range("E" & fila) = TextBox16       'PLACA
    h.Range("F" & fila) = TextBox3        'CONDUCTOR
    h.Range("G" & fila) = TextBox17       'MATERIAL
    h.Range("H" & fila) = TextBox4        'M3
    h.Range("I" & fila) = TextBox18       'ORIGEN
    h.Range("J" & fila) = TextBox19       'DESTINO
    h.Range("K" & fila) = TextBox2        'ALTO
    h.Range("L" & fila) = TextBox14       'ALTOTM
    h.Range("M" & fila) = TextBox7        'IMMA
    h.Range("N" & fila) = TextBox6        'RECIBE
    h.Range("O" & fila) = CDbl(TextBox11) 'PRECIO
    h.Range("P" & fila) = 0               'TOTAL
    h.Range("Q" & fila) = Format(Range("A" & fila), "mmmm")  'MES
    h.Range("R" & fila) = TextBox9        'MOVIMIENTO
    h.Range("S" & fila) = TextBox13       'OBSERVACION
    ListBox1.RowSource = "BASE"
    anulando = False
End Sub

Si solamente tienes un libro, no es necesario que pongas esta instrucción:

Workbooks("APPS DESPACHO.xlsm").Activate

Si la hoja la tienes oculta, no es necesario que la hagas visible, la puedes utilizar, solamente tienes que hacer referencia a la hoja, por ejemplo:

Set h = Sheets("BASE")

h.Range("A" & fila) = CDate(TextBox1) 'Fecha

Bien, ya me ocupo y te devuelvo el libro en un rato.

Sdos!