Issue in macro getting overflow error

[expert40]

Hi Team,
I wrote a macro to populate values based on static and seconds.
But when i am populating the values to sheet from macro i am getting overflow error.
Some time the code is working for 100 records sometimes 200.No sure what is the problem.
Can any one from the team help me to proceed further.I want the code to work for any value of nearer to 10000.

Private Sub getValues_Click()
Sheet1.Cells.ClearContents
'MsgBox ("Start")
Dim K As Integer
Dim value As Integer
For K = 1 To 200
value = 0
Dim traffic, count, count1, countrandom, count1random, random, second, count1Second, countSecond As Integer
Dim X As Integer
Dim X1 As String
Dim t As Double
t = Timer
'Intitialization
milliseconds = 4
count = 0
count1 = 0
countrandom = 0
count1random = 0
countSecond = 0
count1Second = 0
traffic = 1000 * milliseconds
second = Int((t - Int(t)) * 1000)

For X = 0 To traffic
value = value + 1

'Static value
If value <= (traffic * 10 / 100) Then
count = count + 1
Else
count1 = count1 + 1
End If

'Millisecond
If ((second * milliseconds) <= (traffic * 10 / 100)) Then
countSecond = countSecond + 1
Else
count1Second = count1Second + 1
End If
Next X

 Cells(K, "A").value = "Static"
 Cells(K, "B").value = CLng(count * 100 / traffic)
 Cells(K, "C").value = CLng(count1 * 100 / traffic)
'Range("A" & 1).value = "Static"
'Range("B" & 1).value = CLng(count * 100 / traffic)
'Range("C" & 1).value = CLng(count1 * 100 / traffic)
 Cells(K, "D").value = "Second"
 Cells(K, "E").value = CLng(countSecond * 100 / traffic)
 Cells(K, "F").value = CLng(count1Second * 100 / traffic)
'Range("A" & 2).value = "Second"
'Range("B" & 2).value = CLng(countSecond * 100 / traffic)
'Range("C" & 2).value = CLng(count1Second * 100 / traffic)
Next K
'Range("A" & 2).value = "Random"
'Range("B" & 2).value = CInt((countrandom * 100) / traffic)
'Range("C" & 2).value = CInt((count1random * 100) / traffic)
'MsgBox ("End")
End Sub

Thanks in advance