Sub myMacro()

    Dim a, b, c, i, j, k

    a = 4
    b = 11
    c = 50
    d = 40

    For Each j In Worksheets("Sheet1").Range("J" & b & ":J" & (b + d))
        For Each i In Worksheets("Sheet1").Range("I" & b & ":I" & (b + d))
            If IsEmpty(i.Value) Then
                j.Value = IsEmpty(i.Value)
            Else
                j.Value = Range("I" & a).Value
            End If
        Next i
    Next j

End Sub