inserimento numero progressivo in una riga

Buongiorno ho questo problema che non riesco a risolvere.
ho questa macro:
Sub Progressivo()
Dim Nriga As Long
Nriga = Cells(Rows.Count, 1).End(xlUp).Row
Cells(Nriga + 1, 1) = Cells(Nriga, 1) + 1
End Sub
che mi inserisce , in una colonna una numerazione progressiva.

A me servirebbe inserire una numerazione progressiva in una riga,
ma non ci sto riuscendo,pertanto mi rivolgo a voi se potete aiutarmi.
allego file con la macro.
Vi ringrazio ANTICIPATAMENTE per il vostro aiuto.

Ciao
E' uguale alla tua macro solo che riferisce alle colonne



Ciao,
Mario

Grazie Mario,gentilissimo
CIAO.

CIAO MARIO,
HO PROVATO LA TUA MACRO
MA I NUMERI CHE INSERISCE NON SONO PROGRESSIVI.
INSERISCE SEMPRE IL NUMERO "1"

Ciao
Scusa, hai ragione. Correggi questa riga di codice così:
Cells(1, Ncol + 1) = Cells(1, Ncol) + 1

Come noterai la seconda parte dell'uguaglianza aveva un riferimento sbagliato. E io non l'avevo testata ma mi sono basato sulla tua formula.

Ciao,
Mario

GRAZIE MARIO,
FUNZIONA ALLA GRANDE.
CIAO

La numerazione progressiva nella colonna o nella riga si ottiene in modo più semplice calcolando il valore massimo nella colonna o riga, e aumentando di 1, e poi scrivendo il risultato nella ultima cella della colonna o riga incrementata di una riga o di una colonna.
Riporto un esempio di procedura.
Devo segnalare che normalmente l'indice progressivo si scrive in una colonna della tabella.
In una riga è anomalo.

Sub IndiceProgressivoColonna()
Set rng = Cells(1, 1).CurrentRegion 'ottiene il range corrente con angolo A1
'se il range inizia da una cella diversa modificare cells(riga,colonna)
colonna = 1 'colonna dell'indice progressivo
maxcol = Application.Max(Columns(colonna - rng.Column + 1)) 'colonna è il numero di colonna del progressivo
newindex = maxcol + 1 'nuovo indice progressivo
newrow = rng.Row + rng.Rows.count 'ottierne la prima riga dopo l'intervallo
Cells(newrow, colonna).Value = newindex
End Sub

Sub IndiceProgressivoRiga()
Set rng = Cells(1, 1).CurrentRegion 'ottiene il range corrente con angolo A1
'se il range inizia da una cella diversa modificare cells(riga,colonna)
riga = 2 'riga dell'indice progressivo
maxrow = Application.Max(Rows(riga - rng.Row + 1)) 'riga è il numero di riga del progressivo
newindex = maxrow + 1 'nuovo indice progressivo
newcol = rng.Column + rng.Columns.count 'ottierne la prima colonna dopo l'intervallo
Cells(riga, newcol).Value = newindex
End Sub

Saluti

Dario