So I created this VBA Module

Dim stockAvailable As Integer
    Dim stockNeeded As Integer
    Dim rowIndex As Integer
    Dim stockTracker As Integer
    Dim tempStock As Integer
    Dim leftoverStock As Integer
    Dim neededTracker As Integer
    Dim test As Boolean
    
    stockTracker = 11
    neededTracker = 4
    tempStock = 0
    leftoverStock = 0
    
    For rowIndex = 4 To 14
            If (IsEmpty(Cells(rowIndex, stockTracker))) Then
                stockAvailable = 0
            Else
                stockAvailable = CInt(Worksheets("4WEEKS").Cells(rowIndex, stockTracker).Value)
            End If
            If (stockAvailable <> 0) Then
                If (IsEmpty(Worksheets("4WEEKS").Cells(rowIndex, neededTracker))) Then
                    stockNeeded = 0
                Else
                    stockNeeded = CInt(Worksheets("4WEEKS").Cells(rowIndex, neededTracker).Value)
                End If
                If (stockNeeded <> 0) Then
                    Do Until stockTracker < 24
                        tempStock = stockNeeded - stockAvailable
                        If (tempStock < 0) Then
                            If (neededTracked = 4) Then
                                Cells(rowIndex, stockTracker).Select
                                Selection.Interior.ColorIndex = 3
                                ' Cambiar color del font
                            End If
                            If (neededTracked = 5) Then
                                Cells(rowIndex, stockTracker).Select
                                Selection.Interior.ColorIndex = 6
                                ' Cambiar color del font
                            End If
                            If (neededTracked = 6) Then
                                Cells(rowIndex, stockTracker).Select
                                Selection.Interior.ColorIndex = 4
                                ' Cambiar color del font
                            End If
                            If (neededTracked = 7) Then
                                Cells(rowIndex, stockTracker).Select
                                Selection.Interior.ColorIndex = 28
                                ' Cambiar color del font
                            End If
                            leftoverStock = tempStock * -1
                            tempStock = 0
                        End If
                        stockNeeded = tempStock
                        Do Until stockNeeded <> 0
                            neededTracker = neededTracker + 1
                            stockNeeded = Worksheets("4WEEKS").Cells(rowIndex, neededTracker).Value
                        Loop
                        stockAvailable = 0
                        Do Until stockAvailable <> 0 And stockAvailable <> Empty
                            stockTracker = stockTracker + 1
                            If (stockTracker = 16) Then
                                stockTracker = 17
                            End If
                            stockAvailable = Worksheets("4WEEKS").Cells(rowIndex, stockTracker).Value
                        Loop
                        If (leftoverStock > 0) Then
                            stockAvailable = stockAvailable + leftoverStock
                        End If
                    Loop
                    neededTracker = 4
                    stockTracker = 11
                End If
                neededTracker = neededTracker + 1
            End If
            stockTracker = stockTracker + 1
    Next rowIndex

End Sub
After a lot of time thinking about the logic it should have I can't even debug it cause I get a Type Mismatch error on this line: stockAvailable = CInt(Worksheets("4WEEKS").Cells(rowIndex, stockTracker).Value)
Can someone plz help me out