Pike,

Thanks for your help. However, there's a detail that i forgot to mencione.
Not in every record i need to fill in the three textboxes (9, 10 and 11).
Sometimes i just need to fill in txtbox9, sometimes 9 and 10...

When using your code, if i don't fill in the three txtboxes, i get one or two blank rows.
I've tryed adding the following code, to delete blank rows, in amodule, but it's not working.

Private Sub Worksheet_Change(ByVal Target As Range)
'Deletes blank rows as they occur.
    'Prevent endless loops
    Application.EnableEvents = False
    'They have more than one cell selected
    If Target.Cells.Count > 1 Then GoTo SelectionCode
        If WorksheetFunction.CountA(Target.EntireRow) = 0 Then
            Target.EntireRow.Delete
        End If

    Application.EnableEvents = True
    'Our code will only enter here if the selection is more than one cell.
    Exit Sub

SelectionCode:
    If WorksheetFunction.CountA(Selection.EntireRow) = 0 Then
        Selection.EntireRow.Delete
    End If
    Application.EnableEvents = True
End Sub
can you help me?