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
One option is to put 1 in A1
then put this in A2
=IF(B2="","",MAX(A$1:A1)+1) and copy down
This will show a running total of rows with data in Col B
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.