Insert value in a dynamic range

[mark84]

Hi guys,
I'm looking for a solution to write a value, for example '300105', from the first blank cell in column "I" to the last blank cell in the same column, so that the last value in column "I" correspond to the last value of the other columns.
You can see the output I d want in the pic 'output'.
The range in column "I" is not fixed and can change every time, so I need a vba without using fixed cells.
Thanks in advance.


Regards,
Marco

 

[Akuini]

Try this:

Sub try_1()
Dim a As Long, n As Long
n = Range("I" & Rows.Count).End(xlUp).Row
a = Range("A" & Rows.Count).End(xlUp).Row
Range("I" & n + 1 & ":I" & a) = 300105
End Sub

 

[mark84]

Try this:

Sub try_1()
Dim a As Long, n As Long
n = Range("I" & Rows.Count).End(xlUp).Row
a = Range("A" & Rows.Count).End(xlUp).Row
Range("I" & n + 1 & ":I" & a) = 300105
End Sub

great job my friend!
Thank you so much