PDA

View Full Version : Solved: paste to last empty row and beyond



ndendrinos
08-07-2008, 11:21 AM
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
08-07-2008, 11:46 AM
This worked on the sample data.


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

ndendrinos
08-07-2008, 05:33 PM
Excellent Norie.
Thank you