Change Macro to Find First Empty Cell

[Jenny B.]

Hello,

Is there a way to change the below code to select the first empty cell in
the row vs. the offset of the last cell entry? I have a workbook with empty
spaces in this column and I would like to fill in those spaces vs. dropping
to the end of the last column entry.

Thanks for your review –

Roger



Sub FrontPage()

Dim irow As Long
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")

irow = ws.Cells(Rows.Count, 12) _
.End(xlUp).Offset(1, 0).Row

ws.Cells(irow, 12) = ActiveSheet.Range("h5").Value

End Sub

 

[carlo]

You could do:

Sub FrontPage()


Dim irow As Long
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")

irow = ws.Cells(1, 12) _
.End(xlDown).Offset(1, 0).Row

ws.Cells(irow, 12) = ActiveSheet.Range("h5").Value

End Sub

hth

Carlo

 

[JMB]

you could try:

ws.Columns(12).SpecialCells(xlCellTypeBlanks).Cells(1) =
ActiveSheet.Range("h5").Value

 

[Jenny B.]

Thank you very much.

Works Great.

You could do:

Sub FrontPage()


Dim irow As Long
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")

irow = ws.Cells(1, 12) _
.End(xlDown).Offset(1, 0).Row

ws.Cells(irow, 12) = ActiveSheet.Range("h5").Value

End Sub

hth

Carlo