Macro to number down rows.

[Dazzawm]

I need another macro but recording it wont work as I have a different amount of rows in each file I will use it on. Starting in A2 I need it to number down 1 to whatever row is the last i.e 1 to 7386 rows when there is that amount. Its another part I can add to my macro. Thanks.

 

[MrKowz]

Try:

Dim LR as Long
Dim i as Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 to LR
    'Your code here
Next i

 

[Dazzawm]

I need it at the very end of my code but it comes up with a Compile error:
Duplicate declaration in current scope.

 

[jeffreybrown]

Are you just looking to number the rows?

This numbers down as far as column B.

Sub Macro1()
    Range("A2:A" & Range("B" & Rows.Count).End(xlUp).Row).Formula = "=ROW(A1)"
End Sub

 

[Dazzawm]

I think I need these 2 codes sort of made as 1!!

Dim LR As Long, i As Long
LR = Range("G" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
If IsError(Range("G" & i)) Then Rows(i).Delete
Next i
Dim LR As Long
Dim i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LR
'Your code here
Next i

 

[jeffreybrown]

Not entirely clear what you want here.

Do you want to delete all #N/A from column G and then number the rows left starting in A2?

Sub FilterDelete()
    With Range("G1", Range("G" & Rows.Count).End(xlUp))
        .AutoFilter field:=1, Criteria1:="#N/A"
        .Offset(1).EntireRow.Delete
        .AutoFilter
    End With
    Range("A2:A" & Range("G" & Rows.Count).End(xlUp).Row).Formula = "=ROW(A1)"
End Sub

 

[Dazzawm]

I added your previous bit of code to mine and it works fine, thanks.