Hello Sarath,
If I've understood you correctly, you would like to have all the data from the range A1:AY39 copied/pasted onto the same sheet starting in cell A41 with this same data copied/pasted fifty times and with a blank row between each "block" of data. If I have assumed correctly, then the following simple code just may do the task for you:-
Sub CopySelection()
Dim DCT As Long '----> DCT simply stands for "Data Copy Times"
Dim i As Long
Application.ScreenUpdating = False
DCT = 50
For i = 1 To DCT
Range("A1:AY39").Copy Range("A" & Rows.Count).End(3)(2)(2)
Next i
Application.ScreenUpdating = True
Application.CutCopyMode = False
End Sub
Test the code in a copy of your workbook first.
I hope that this helps.
Cheerio,
vcoolio.
Thanks for Reply .
I have not said all the data of Row.(A1:AY39) should fit in single Rows A41 .
I asked i need to make copy of Row A1 : AY39 and should paste all those data With same cell Format in Next to it.(i.e on Origin as A41 ) and again after pasting the data from A41 it need to make another copy and it has to paste after 41 Rows.
This is the issue...
Thanks in Advance,
Sarath.