Copy range paste next to dynamic list

[xzcvb33]

hi, I have a list of 100 depts. list starts in A2 this is on sheet 1. Sheet 2 has a range of data A2-A50. I'd like to copy that range and insert it in column d of sheet 1 below each dept. all the way down the list. Thanks for any help u can provide

 

[xzcvb33]

Attached is a sample

 

[Nebu]

Hi:

Find the attached.

Sub test()

Application.ScreenUpdating = False
j& = Me.Cells(Rows.Count, "A").End(xlUp).Row + 1

For i& = j To 3 Step -1
    Rows(i).Resize(49).Insert
    Sheet2.Range("A2:B50").Copy
    Me.Range("D" & i).PasteSpecial
Next

Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub

Thanks

 

[xzcvb33]

Thanks..I'm getting compile error invalid use of Me keyword

 

[YasserKhalil]

Be sure you put the code in sheet1 module not in standard module
It is working for me

 

[xzcvb33]

Great thank you...I hate being clueless.

 

[xzcvb33]

Works great thanks guys...I gotta retire

 

[xzcvb33]

Is there a way to mark it solved...having trouble finding it but I'm on a phone...ill check from my home pc tonight