Solved: paste to last empty row and beyond

[ndendrinos]

also posted at Mr Excel
http://www.mrexcel.com/forum/showthread.php?t=334623

A small example attached to explain visually what I'm trying to do to solve this posting

http://www.vbaexpress.com/forum/showthread.php?t=21363

[Norie]

This worked on the sample data.
[vba]

Sub test()
Dim rngSrc As Range
Dim rngDst As Range
Set rngSrc = Worksheets("Sheet1").Range("A1").CurrentRegion

Set rngDst = Worksheets("result").Range("A1")

While rngDst.Value <> ""

rngSrc.Copy rngDst.Offset(1)

Set rngDst = rngDst.Offset(3)

Wend


End Sub[/vba]

[ndendrinos]

Excellent Norie.
Thank you