Insert a the value in specific place

Hello guys I got help from you also generated a part of the code by myself,

I should need help to add a little thing.

I use i= a cell (specified by some criteria)

now I would like to Put the result "myTot" on the same row but in Column T the value

Sub CheckMatch()

For i = 2 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
    If Cells(i, "J") = Cells(i, "K") And Len(Cells(i, "B")) <> 0 And Cells(i, "AB") <> 0 Then
       

'Dim DivAB As String

'Rows(i).Select

'Cells(i, 1).EntireRow.Interior.ColorIndex = 6
'Cells(i, "B").Select
myCell = Cells(i, "B").Text
mycellSel = Cells(i, "B").Select
mycellRes = myCell - 1
DivAB = Cells(i, "AB").Text

mytot = Round(DivAB / mycellRes)
MsgBox mytot                                     ' Put myTot (result) in Column T same row 


    End If
Next i


End Sub

Could someone help me?

Thank you in advance

Maybe:

Sub elmnasy()
For i = 2 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).row
    If Cells(i, "J") = Cells(i, "K") And Len(Cells(i, "B")) <> 0 And Cells(i, "AB") <> 0 Then
       

'Dim DivAB As String

'Rows(i).Select

'Cells(i, 1).EntireRow.Interior.ColorIndex = 6
'Cells(i, "B").Select
myCell = Cells(i, "B").Text
mycellSel = Cells(i, "B").Select
mycellRes = myCell - 1
DivAB = Cells(i, "AB").Text

mytot = Round(DivAB / mycellRes)
Cells(i, "T") = mytot


    End If
Next i

End Sub

I think this will do:

Sub CheckMatch()

For i = 2 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
    If Cells(i, "J") = Cells(i, "K") And Len(Cells(i, "B")) <> 0 And Cells(i, "AB") <> 0 Then
       

'Dim DivAB As String

'Rows(i).Select

'Cells(i, 1).EntireRow.Interior.ColorIndex = 6
'Cells(i, "B").Select
myCell = Cells(i, "B").Text
mycellSel = Cells(i, "B").Select
mycellRes = myCell - 1
DivAB = Cells(i, "AB").Text

mytot = Round(DivAB / mycellRes)
MsgBox mytot                                     ' Put myTot (result) in Column T same row 
cells(i,20)=myTot

    End If
Next i


End Sub

Thank you work as a charm!

You are welcome! Glad to be able to help someone for once.