Excel not responding, for this code.

[dinakar.yadav]

Hi guys,
While running the following code,my excel is hanging. Not sure, what exactly is the problem, Please help.

Option Explicit

Sub bucket_range()

Dim wb As Workbook
Dim wmain As Worksheet
Dim wrough As Worksheet
Dim wpreinvpiv As Worksheet
Dim i As Long
Dim result As Variant
Dim lastrow As Long
Dim j As Long
Dim k As Long
Dim l As Long
Dim pivot_rng As Range



Set wb = Application.ActiveWorkbook
Set wmain = wb.Sheets("main")
Set wrough = wb.Sheets("main_rough")
Set wpreinvpiv = wb.Sheets("Inv Prev Day Pivot")



Range(Range("D4"), Range("d4").End(xlToRight)).Select

Selection.ClearContents

Set pivot_rng = wpreinvpiv.Range("A2:A1000")
l = Application.Max(pivot_rng)
wmain.Activate

i = ActiveSheet.Cells(2, 3).Value
j = 0
k = 4

Do Until k >= (Int(l / i) + 4)
    If k <= (Int(l / i) + 3) And (i * (j + 1)) <= l Then
    Cells(4, k).Value = i * j & "-" & i * (j + 1)
Else: Cells(4, k).Value = i * j & "-" & "above"
End If
k = k + 1
j = j + 1
Loop


End Sub