Help in Copy and Paste cells with loop logic

[jawaharprm]

Hi All,
i have 2 sheet "Sheet1" and Sheet"User" which has 3 user need to copy the user and paste in sheet1 at "B" Column repletely till last row, Pls help on same
i have tried some code but not working.

>>> use code - tags instead icode - tags <<<

Option Explicit

Sub allocation()
Dim lr As Long
Dim lr2 As Long

Sheet1.Activate

Sheet2.Activate
    Sheet2.Range("A2:A4").Select
    Sheet2.Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy

    lr = Sheet1.Cells(Rows.Count, "B").End(xlUp).Row + 1
    Sheet1.Activate
    Sheet3.Range("B" & lr).Activate
    Sheet3.Paste

End Sub

 

[Marc L]

Hi, unclear … And as it's faster when such loop logic can be avoided.​

​

 

[jawaharprm]

Hi Thanks, i completed the this logic in other way without loop function.