Paste a value in the next empty cell for a defined range

Got it!

Sub finder()
    Dim i As Long
    For i = 25 To 30
        If Range("B" & i).Value = "" Then
            'what to do if cell is empty
            Range("B" & i).Value = Range("CB97").Value
            Exit For
        End If
    Next i
End Sub