Macro for pasting column data x number of times in one column with space after every pasting

[sara2009]

Hello, i hv been really struggling with this. please help me with a macro that would paste data from SHEET 1 column L data range is (L2:L29) to paste in column L for x number of times and keep 1 blank CELL after every paste. e.g number of times i hv to paste is 800.

Col L

E1P

E1T

E3P

E3T

E7P

E7T

SK1P

SK1T

SK4P

SK4T

SK7P

SK7T

J3P

J3T

J4P

J4T

HI5P

HI5T

HI6P

HI6T

K3P

K3T

H5P

H5T

U6P

U6T

SAY6P

SAY6T

<TBODY>
</TBODY>

 

[Snakehips]

sara2009,

Welcome to Mr Excel.

Perhaps try this....

Sub MyFill()
Application.ScreenUpdating = False
Set MyRange = ActiveSheet.Range("L2:L29")
r = 2
For n = 1 To 800
r = r + 29
Range("L" & r & ":L" & r + 27).Value = MyRange.Value
Next n
Application.ScreenUpdating = True
Beep
End Sub

Hope that helps.

 

[sara2009]

thanks snakehips,,it worked like MAGIC!!!!!! THANKSSSS ALOTTT i cant biliv how FAST THAT WAS to do!!!