For x = lastactivecell To 2 bottom top

[montecarlo2012]

Hello.
I have a dynamic array B2:F8686 I would like to be able to count and display on column G how many cells are used
so the last cell in use at the moment is F8686 so starting there with 1 and end up on G2 with the count 8686

Sub Cn()
Dim x As Integer

  lRow = Cells(Rows.Count, 1).End(xlUp).Row

    For x = lRow To 2 Step -1
       Cells(x, 6) = x
    Next x

End Sub

I tried this but do not work
thank for reading this

 

[DanteAmor]

Try:
Place the letter of the column that you take as a reference that has the last cell with data.

lRow = Cells(Rows.Count, "F").End(xlUp).Row

 

[montecarlo2012]

Thanks.

Sub Cn()
Dim x As Integer

Application.ScreenUpdating = False
  
lRow = Cells(Rows.Count, "F").End(xlUp).Row

    For x = lRow To 2 Step -1
       Cells(x, 6) = x
    Next x
    
Application.ScreenUpdating = True

End Sub

doing that, what I got was that the whole column F was replace for the count, and F is part of my data, and the count instead to be 8686, 8685, 8684 was just a regular count from 2 to the end
in other words do not work, and took like 2 minutes to work. reason I add screen update.
and I understand taking F as a reference to count and display results on G.
like on G I was expecting something like

Book1
	G
1
2	8686
3	8685
4	8684
5	8683
6	8682
7	8681
8	8680
9	8679
10	8678
11	8677
12	8676
13	8675
14	8674
15	8673
16	8672
17
Sheet1

 

[DanteAmor]

Your macro has several problems.
Ideally, you should start by writing what the final objective of your request is.
An example of what you have an example of the expected result.
That way it is easier for us to understand what you have and what you want.

The most practical, if possible, is to use Range and the letter of the column, example Range("F" & x), that way you can see which cell you are referring to.

One of the errors in your macro is that you are writing to column 6, that column is column "F", so your macro already had that problem.

Cells(x, 6) = x

Replace your macro with the following:

Sub Cn()
  Dim x As Long, lRow As Long, n As Long
  Dim b As Variant
  
  lRow = Range("F" & Rows.Count).End(xlUp).Row
  ReDim b(1 To lRow - 1, 1 To 1)
  n = 1
  For x = lRow - 1 To 1 Step -1
    b(x, 1) = n
    n = n + 1
  Next x
  Range("G2").Resize(UBound(b)).Value = b
End Sub

Important Note: Row 1 you are not considering. If you have data up to row 8686, then you have 8685 data, so the count will go from 1 to 8685.

If you want the count to end at 8686, then the count should start at 2.
In that case change n = 1 to n = 2.
I hope I explain myself correctly.

Note: The process is faster when you use an array to store the data and then download the array to the cells.
--------------
Let me know the result and I'll get back to you as soon as I can.
Sincerely
Dante Amor
--------------

 

[montecarlo2012]

Thank you Dante the Path you say is right, thanks.