marco for totalling different length sheets

[Oldmillrob]

I want to record a Marco to total column J and put the total at the end of the list. The difficulty is that I want to use this Marco on lists of various sizes. the curser May be anywhere on the sheet and when Marco is run it should always go to the end of column J. One sheet may be 250 lines and the next could be 3200. Thefore the total cell will be in different places in different sheets. I am not experienced in VB

 

[Roderick_E]

Sub loopit()


         ' Declare Current as a worksheet object variable.
         Dim Current As Worksheet


         ' Loop through all of the worksheets in the active workbook.
         For Each Current In Worksheets
if current.visible = true 'only visible sheets
lastrow = current.Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row            
current.cells(lastrow+1,"J") = worsheetfunction.sum(current.range("J:J"))
endif
         Next


      End Sub