Really Easy Question - Populating cells by row

[I'm rubbish with Excel]

I know this is a really easy request, but I've completely drawn a blank.

Basically, I want a macro the same as below, but populating cells A1 - E1 (last blank column) rather than A1 - A5 (last blank row.)

lastrow = Range("A65536").End(xlUp).Row + 1

for i = 1 to lastrow
Range("a" & i).Value = i
next i

I know it's simple, but I've gone stupider than normal.

thanks in advance

 

[dk]

Is this what you want?

Sub PopulateColumns()

    lngLastCol = Range("IV1").End(xlToLeft).Column + 1

    For i = 1 To lngLastCol
        Cells(1, i) = i
    Next i

End Sub

 

[CraigM]

lastcol = Range("IV1").End(xlToLeft).Column + 1
For i = 1 To lastcol
Cells(1, i).Value = i
Next i

 

[Joe4]

BTW, what are you hoping to accomplish by this code?

It simply seems to renumber all the cell values in the column all the way over to the last populated column in that row, plus one more. It will wipe out the previous cell contents.

Maybe that is what you are intending to do, it just seems a little odd!

 

[I'm rubbish with Excel]

Thanks everyone for your help.

jmiskey, I'm actually working on something which would've been a lot harder to explain. I can use the solutions given and adapt them.

Thanks again, everyone!