Copying a selected used range

  • Thread starter Thread starter michael
  • Start date Start date
M

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
 
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.
 
Back
Top