Lets try this, don't call your FindLastRow function, at the top ofthe code for the button that adds a new record use this instead.Dim R as longR = ActiveSheet.Range("A65536").end(xlup).row + 1