VBA snippet to paste [Selection.End(xlDown)).Select] data

[Karthik Thandapani]

Hi,

Can anyone please help me with a VBA code snippet to paste the selected data. Presently I've the below & trying to find an efficient way to copy&paste data without any bug.

Sub endxldownData()
Worksheets("Home").Activate
Range("P11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Home").Range("B11").PasteSpecial (xlPasteValues)
Application.CutCopyMode = False

End Sub

 

[Debraj]

Hi Karthik..

Try this..

Sub endxldownData()
    With Sheets("Home")
        .Range("B11:B" & .Range("p11").End(xlDown).Row) = _
            Range("p11:p" & .Range("p11").End(xlDown).Row).Value
    End With
End Sub

 

[Karthik Thandapani]

Hi Debraj,
It works like a breeze.

Thanks,
Karthik