End down

[Bill Ridgeway]

Using Lotus 123 emulation it is possible to copy the contents of a cell(s)
using <end><down> to the last cell in the spreadsheet. Although this takes
longer than a copy/ paste in its actual execution, for a large spread sheet
it is actually shorter than copy-highlighting-pasting over a very large
range of cells.

Is there a quick way to copy the contents of a cell over a large range of
cells??

Regards.

Bill Ridgeway

 

[Peter atherton]

Bill

One way, using code

Sub testcopy()
Dim rng As Range
Set rng = Range("B66")
rng.Copy Range("d7:d12")
End Sub

Formulas are copied with relative references. Change range
to suit.

Regards
Pter