Dear Sr:

I require that the listbox2 & listbox3 are selected in cell "D" (Secondary Header VALUE) and "F" (Header Quantity Value) to add the new values ​​..

The error that I have, is that only add function to find an empty value in the cell "D" but doesn't work the another function in value "F":
This:
Private Sub TextBox3_Change()
Range("F4").End(xlDown).Offset(1, 0).Select