Populate next blank column in row

[sharky12345]

Hi Guys,

I'm trying to work out how to populate the next blank row with data using a loop but starting in column E. My procedure finds the first blank row in column A then starts populating the cells but I need it to populate columns starting with column E with some of the data and this is what I'm stuck on.

This is what I have so far:

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

For i = 1 To 31
If Me.Controls("TextIssue" & i) <> "" Then

' This is where I'm stuck

Next i

So I know how to populate the next empty row in a column, but I can't work out how to populate the next empty column starting with E, (but in the same row as LastRow).

Hopefully you'll understand what I'm trying to achieve - it makes sense in my head!

 

[JGordon11]

Cells(LastRow,5) = whatever

will put the contents of the variable whatever into the cell at row = LastRow and Column E

if you only want to change it if it is blank then use

if Cells(LastRow,5) = "" then Cells(LastRow,5) = whatever

if you want to control the column using your index variable i, then to start in column E use

Cells(LastRow,i+4) = whatever

 

[sharky12345]

Thanks buddy!