My counter doesn't work what did i miss ?

[Y.Turan]

For i = 1 To TotUni - 1
If tst.Cells(i + 1, 1) <> i Then
End If
If tst.Cells(i + 1, 1) = i Then
For j = 1 To LastRow
If tst.Cells(j + 1, 1) = i Then
count = count + 1
End If
Next j
For k = 1 To count
For m = 1 To lr
If tst.Cells(m, 4) = True Then
If tst.Cells(k, 3) = m Then
counter = counter + 1
End If

End If
Next m
If count = counter Then
ThisWorkbook.Sheets("Sheet6").Cells(k, 1) = tst.Cells(i, 1)
End If
Next k
End If


Next i
count = 0
counter = 0