you could try:

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


"Jenny B." wrote:

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