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

Pefect - thanks Tom

Tony

-----Original Message-----
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



.