copying some data(value+formulas) and pasting to the same sheet is very slow

[HaroonSid]

hi,
copying some data(value+formulas) and pasting to the same sheet but the problem is that this is taking long time to do work, so i need a better version to do this task.

Sub OL_FORMULA_COPY()
Sheets("OL").Activate

Dim lCalc As Long
Dim i, j, count
Application.ScreenUpdating = False
lCalc = Application.Calculation
count = WorksheetFunction.CountIf(Sheets("OL").Range("AP4:AP100"), ">0") - 1
i = 89
For j = 1 To count
    Range("A4:AN88").Copy '253
    Range("A" & i).PasteSpecial Paste:=xlPasteAll
    i = i + 85
Next j
Application.Calculation = lCalc
Application.ScreenUpdating = True
End Sub