Macro para ingresar dato desde TextBox a celdas visibles

Necesito ingresar datos desde un TextBox a todas las celdas visibles. Me explico, tengo un TextBox4, el valor que ingreso ahí es único y necesito ingresar ese valor en la columna H, pero siempre y cuando hayan valores en las celdas de la columna B.

Intente con la macro adjunta, pero no funciona.

Agradezco por su ayuda.

Private Sub CommandButton1_Click()
    Set h = Sheets("Report")
    Set r = h.Columns("A")
            'detalle
             If h.Cells(b.Row, "B") = "" Then
                h.Cells(b.Row, "H") = TextBox4.value  'peso
                End If
                Exit Sub
        TextBox4.value = ""
        TextBox4.SetFocus
Unload Me
UserForm4.Show
End Sub