Paste Append?
I am trying to copy data from one worksheet to the end of the data on
another worksheet. I found this macro but it only works with one row.
Perhaps someone can help me modify it.
Thanks
QUOTE
Hi Dr Bob,
There is no direct equivalent of AppendBelow. The following code should
do the job where you have named the target area Database and the single
line of new data as HoldArea:
Sub Test()
AppendBelow "Database", "HoldArea"
End Sub
Sub AppendBelow(Target, Source)
With Range(Target)
Range(Source).Copy Destination:=.Offset(.Rows.Count).Resize(1,1)
.Resize(.Rows.Count + 1).Name = Target
End With
End Sub
The code copies HoldArea below Database and extends the range of
Database
by one row,
HTH,
|