I am using below code to copy paste data in same workbook
But it taking too much time
Code
Sub OLV_FORMULA_COPY()
Sheets("OL V").Activate
Application.ScreenUpdating = False
Dim i, j, count
count = WorksheetFunction.CountIf(Sheets("OL V").Range("W4:W53"), ">0") - 1
i = 47
For j = 1 To count
Range("A4:R46").Copy
Range("A" & i).PasteSpecial Paste:=xlPasteAll
i = i + 43
Next j
Application.ScreenUpdating = True
End Sub
Display More