Dim colVar As Integer
    Dim colChars As String
    Dim cellAdd As String
 
    colChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
 
    For colVar = 1 To 4
        cellAdd = Mid(colChars, colVar, 1) & 1
        Range(cellAdd).Value = colVar
    Next colVar

    Dim colVar As Integer
    Dim noOfCols As Integer
    Dim colChars As String
    Dim cellAdd As String
 
    colChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
 
    'This piece of code holds good 
    'for Columns upto 26 only
    'Because beyond that the col names will
    'be AA, AB, AC,...
    'Then u may have to create and array
    'using a loop to store the column names
 
    noOfCols = 10
 
    For colVar = 1 To noOfCols
        cellAdd = Mid(colChars, colVar, 1) & 1
        Range(cellAdd).Value = noOfCols - colVar + 1
    Next colVar

I = 1
N = 5
Do While I < N
    Cells(1,I) = N - I
    I = I + 1
Loop