Next Empty Row from a Range

[ipon70]

So here is my problem,
I have found many Rows.Count, "A").End(xlUp).Offset(1, 0 .etc.....codes
What I need is one location "N8" to be copied to the next empty cell starting at F24 and ending at F31. So basically count and fill in but only between F24:F31, if there isn't an empty cell available it just ends and doesn't copy.

Hope that makes sense.

 

[johnnyL]

How about:

Sub Fill_blank_cells_with_a_specific_value()
'
    Dim cell As Range
'
    For Each cell In Range("F24:F31")
        If IsEmpty(cell) Then
            cell.Value = Range("N8").Value
            Exit Sub
        End If
    Next
End Sub

 

[ipon70]

How about:

Sub Fill_blank_cells_with_a_specific_value()
'
    Dim cell As Range
'
    For Each cell In Range("F24:F31")
        If IsEmpty(cell) Then
            cell.Value = Range("N8").Value
            Exit Sub
        End If
    Next
End Sub

AWESOME!!! Worked like a charm, thank you so much!

 

[johnnyL]

Glad to help.