Dear,

Could someone please help out? My macro should insert a new line with red font for all values to be completed.
This macro hereunder works already fine but injects a new row in BLACK...

Could anyone advise?

Thanks,

Erik

----------------------------

Sub Add_step()
Dim ligne
Dim colonne
Dim last_ligne
Dim col_rk
Dim boucle

ligne = 13
col_slct = "C"
colonne = "A"
col_rk = "K"

Cell = Range(colonne & ligne).Value
While Cell <> ""
ligne = ligne + 1
Cell = Range(colonne & ligne).Value
Wend

Rows(ligne & ":" & ligne).Select
Selection.Copy
Selection.Insert Shift:=xlDown
Range(colonne & ligne).Value = "=" & colonne & (ligne - 1) & "+1"
Range(col_rk & ligne).Value = ""
Range(col_slct & ligne).Select

Application.CutCopyMode = False

End Sub