VBA problem

[zyhin]

Can someone tell me how I can refresh LastRow. It uses the same row for every sheet and I need it to be the LastRow for every sheet.

Dim TabNumber As Worksheet
 
For Each TabNumber In ActiveWorkbook.Worksheets
 
     If TabNumber.Name <> "Welcome" Then
 
          With TabNumber
 
                  Lastrow = Cells.Find(what:="*", searchdirection:=x1Previous, searchorder:=x1ByRows) .Row
                  TabNumber.Cells(LastRow, 6).Value = Time
                  TabNumber.Cells(LastRow, 7).Value = "h:mm:ss;@"
                  TabNumber.Cells(LastRow, 7).Formula = TabNumber.Cells(LastRow, 6) - TabNumber.Cells(LastRow, 5)
 
          End With
 
    End If
 
Next TabNumber

Z

 

[ISY]

Hello

I check the first three column:

Dim TabNumber As Worksheet
 
For Each TabNumber In ActiveWorkbook.Worksheets
 
     If TabNumber.Name <> "Welcome" Then
 
          With TabNumber
                Set AF = Application.WorksheetFunction
                Lastrow = AF.Max(TabNumber.Cells(Rows.Count, 1).End(xlUp).Row, _
                TabNumber.Cells(Rows.Count, 2).End(xlUp).Row, TabNumber.Cells(Rows.Count, 3).End(xlUp).Row)
                
                TabNumber.Cells(Lastrow, 6).Value = Time
                TabNumber.Cells(Lastrow, 7).Value = "h:mm:ss;@"
                TabNumber.Cells(Lastrow, 7).Formula = TabNumber.Cells(Lastrow, 6) - TabNumber.Cells(Lastrow, 5)
 
          End With
 
    End If
 
Next TabNumber

 

[AlphaFrog]

    Dim TabNumber As Worksheet, Lastrow As Long
    
    For Each TabNumber In ActiveWorkbook.Worksheets
    
        With TabNumber
        
            If .Name <> "Welcome" Then
     
                Lastrow = [COLOR="Red"].[/COLOR]Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
                .Cells(Lastrow, 6).Value = Time
                .Cells(Lastrow, 7).NumberFormat = "h:mm:ss;@"
                .Cells(Lastrow, 7).Formula = .Cells(Lastrow, 6) - .Cells(Lastrow, 5)
     
            End If
     
        End With
     
    Next TabNumber

 

[zyhin]

Thanks ISY,

Works great.