I'm not to sure you've described the question fully but you could try this.
Alt +F11 to open VB editor. Double click 'This Workbook' and paste this in
on the right
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Range("A1").Value = ActiveSheet.UsedRange.Rows.Count
End Sub