Hi all,

First post - so please be gentle!

I've a spreadsheet with a macro that works as follows:

1. the user pastes some data into B4 to Bn (variable range) and for a
fixed set of columns
2. the formula that is in cell A4 needs to be copied down to all the
rows of data.

Below is the code i use...

Sheets("TB").Select
LastRowTB = Cells.Find(What:="*", After:=[A1],
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Range("A4").Select
Selection.Copy
For rowcounter = 1 To LastRowTB - 3
Range("A4").Offset(rowcounter, 0).Select
ActiveCell.PasteSpecial Paste:=xlAll
Next


the problem is that when it runs, it takes forever to move row to row -
up to 2 or 3 seconds per row. I've used debug lines to show that the
line ActiveCell.PasteSpecial Paste:=xlAll is at fault but this has not
helped as i cannot see why this is failing.

I have been thinking about defining the whole range from A4 to An and
then pasting but i can't work out how to define the range and then use
to as a paste location.

Any help gratefully received.

Rob.