No of columns in range

  • Thread starter Thread starter Ron McCormick
  • Start date Start date
R

Ron McCormick

I have a procedure with the following lines of code in it:

Range(Selection, ActiveCell.SpecialCells
(xlLastCell)).Select
Selection.ClearContents
ActiveCell.Offset(-1, 0).Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
ActiveCell.SpecialCells(xlLastCell).Select
ActiveCell.Offset(0, -36).Select
Range(Selection, Selection.End(xlUp)).Select

The "36" in the penultimate row represents, currently, the
number of columns from the column of the activecell in the
first row of code and the column of the last active cell
on the worksheet. How can I replace the "36" with some
code that represents the number of columns dynamically?

TIA
Ron
 
easier would be

change
ActiveCell.Offset(0, -36).Select

to

Cells(activecell.row,1).Select
 
Back
Top