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

Report
Posts
2
Registration date
Wednesday December 27, 2017
Status
Member
Last seen
December 27, 2017
-
Posts
2
Registration date
Wednesday December 27, 2017
Status
Member
Last seen
December 27, 2017
-
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

1 reply

Posts
2
Registration date
Wednesday December 27, 2017
Status
Member
Last seen
December 27, 2017

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

Subscribe To Our Newsletter!

The Best of CCM in Your Inbox

Subscribe To Our Newsletter!