MAcro works OK in Step into debug mode but not doing job when run from command button

Same problem happening to another code. Code won't run using button in sheet. What is issue in it now?

Sub Shfts()

Dim SMin As Long, SMax As Long
Dim wb As Workbook
Dim ws As Worksheet

Set wb = ActiveWorkbook

With wb
    For Each ws In wb.Worksheets
        With ws
            If .Name = "G" Or .Name = "H" Then
                SMin = Application.Min(.Range("B:B"))
                SMax = Application.Max(.Range("B:B"))
        
    'Filling Shift tables with all shifts and deleting extra shifts
                If SMin + SMax <> 0 Then
                    With wb.Sheets("Shifts")
                        If ws.Name = "G" Then
                            tb = "Table1"
                        ElseIf ws.Name = "H" Then
                            tb = "Table2"
                        End If
                        
                        With .ListObjects(tb)
                            If (tb = "Table1" And Application.Sum(Range("A:A")) > 0) Or _
                            (tb = "Table2" And Application.Sum(Range("F:F")) > 0) Then
                                Do While .DataBodyRange(1, 1).Value > SMin
                                    .ListRows.Add (1)
                                    .DataBodyRange(1, 1).Value = .DataBodyRange(2, 1).Value - 1
                                Loop
                            End If
                            
                            If (tb = "Table1" And Application.Sum(Range("A:A")) = 0) Or _
                            (tb = "Table2" And Application.Sum(Range("F:F")) = 0) Then
                                LstRc = 1
                                TMax = 0
                                .ListRows.Add AlwaysInsert:=True
                                .DataBodyRange(LstRc, 1).Value = SMin
                            Else
                                ' To get last record for a table we exclude 2 heading rows.
                                LstRc = .DataBodyRange(1, 1).End(xlDown).Row - 1 - 2
                                TMax = .DataBodyRange(LstRc, 1).Value
                            End If

                            If TMax < SMax Then
                                For i = TMax To SMax - 1
                                    .ListRows.Add AlwaysInsert:=True
                                    .DataBodyRange(LstRc + 1, 1).Value = .DataBodyRange(LstRc, 1).Value + 1
                                    LstRc = .DataBodyRange(1, 1).End(xlDown).Row - 1 - 2
                                Next i
                            End If
                        End With
                    End With
                End If
                    If .Name = "G" Then
                        co = 0
                    Else
                        co = 5
                    End If
                        .Range("C2:C" & Range("C2").End(xlDown).Row).FormulaR1C1 = "=IF(RC[-1]=""Open"", ""x"",VLOOKUP(RC[-1],Shifts!C[" & -2 + co & "]:C[" & -1 + co & "],2,FALSE))"
            End If
        End With
    Next ws
End With

End Sub