Itemize a colum and fill down

  • Thread starter Thread starter johncaleb
  • Start date Start date
J

johncaleb

Hi,
I have a data range from A1:D10
Is there a macro to remove all data from column C, then
itemize down "10,9,8,7,6,5,4,3,2,1" starting at C1?
Note, the number of rows can change from 10 to any amount later.

thanks.
 
This should do it:

Sub tract()
Dim sh As Worksheet, lr As Long
Set sh = ActiveSheet
lr = sh.Cells(Rows.Count, 1).End(xlUp).Row
sh.Range("C1:C" & lr).ClearContents
sh.Range("C1") = lr
For i = 2 To lr
sh.Cells(i, 3) = sh.Cells(i - 1, 3).Value - 1
Next
End Sub
 
Don't you itemize down, Don? Lot's of people do that. Some do it starting
with one and work up, and others do it starting with a higher number and
work down to one.
 
Back
Top