Dynamic Copy and paste to another worksheet
Sub Tester1()
Set rng = Worksheets("Groups") _
.Cells(Rows.Count, 1).End(xlUp)(2)
Worksheets("Selection").Range("B4:F14") _
.Copy Destination:=rng
rng.Offset(-1, 5).Resize(12, 20).FillDown
End Sub
Assume you are pasting to column A and the formulas begin in column F in
Sheet groups and there are 20 columns of formulas to filldown next to the
pasted data (11 rows).
--
Regards,
Tom Ogilvy
"Tony Scullion" wrote in message
...
Hi Group,a
R
How do I copy and paste the contents from range (b4:f14)
on a worksheet called Selection to another worksheet
called Groups where it will...
1 Be dynamically added to the bottom of an ever
growing list
2 It copies and applies the formula from the cells
above
TIA
Tony
|