VBA Code Required for Copy one cell and paste in multiple times

9171158847 2 Posts Wednesday December 27, 2017Registration date December 27, 2017 Last seen - Dec 27, 2017 at 11:52 AM - Latest reply: 9171158847 2 Posts Wednesday December 27, 2017Registration date December 27, 2017 Last seen
- Dec 27, 2017 at 12:03 PM
Hello,

I have a data from A1:A2000 (Source Work Sheet)
1) I would like to copy A1 and paste in (Target Work Sheet) A1:A30
2) I Need to copy A2 and paste in (Target Work sheet) A31:A60

Each of Text or Value of A1:A2000 i want to paste in target work sheet 30 times

Please let me know any simple VBA code
See more 

1 reply

Reply to this topic
9171158847 2 Posts Wednesday December 27, 2017Registration date December 27, 2017 Last seen - Dec 27, 2017 at 12:03 PM
0
Helpful
Dear All,

I didn't find any results for this..
I'm trying this but not getting proper answer..

Sub SimpleMacro()


Dim WS As Worksheet
Dim WS1 As Worksheet

Set WS = ThisWorkbook.Sheets("Target")
Set WS1 = ThisWorkbook.Sheets("Soure")

Dim lrow As Integer

lrow = Range("A" & Rows.Count).End(xlUp).Row
Sheets("Source").Select

For Each cell In Range("A2:A" & lrow)
cell.EntireRow.Copy

Sheets(cell.Value).Activate
Range("A" & Rows.Count).End(xlUp).Offset(1, -1).PasteSpecial
Next cell
Application.CutCopyMode = False
Respond to 9171158847