Copying a selected used range

[michael]

Hi

How do you select and copy the used range of a worksheet
named "calculations" with a permanent starting point of
cell "A14".

Thanks for you help guys.

Michael

 

[Tom Ogilvy]

Assume there will be something in cell A14
Dim rng as Range
With Worksheets("Calculations")
set rng = .Range(.cells(14,1),.Cells(rows.count,1).End(xlup))
set rng = intersect(rng, .usedrange.EntireColumn)
End With
rng.copy

would be one guess.