Adding current date to next available line in the range

[boninm]

hello

I found a code to find the next available row in the range.
Now I want to use the reference it giving me to add the current date
I'm lost on how to do that.
Can anyone help me.

Thank you in advance

How to find the first blank cell in a range in Excel.xlsx
	A	B	C	D	E	F	G	H	I	J	K
1		https://spreadsheetweb.com/find-the-first-blank-cell-in-a-range-in-excel/#
2
3				Range = B7:B14
4				Position of 1st blank cell	3
5				Address of 1st blank cell	$B$9
6		Date		Formula above:	=CELL("address",INDEX(B7:B14,MATCH(TRUE,ISBLANK(B7:B14),0)))
7		2025-01-21
8		2025-01-27
9
10
11
12
13
14
15
16
Sheet1

Cell Formulas
Range	Formula
E4	E4	=MATCH(TRUE,ISBLANK(B7:B14),0)
E5	E5	=CELL("address",INDEX(B7:B14,MATCH(TRUE,ISBLANK(B7:B14),0)))
E6	E6	=FORMULATEXT(E5)

 

[boninm]

Nope, that didn't work

rework another code that is working. Here it is

    '[URL='https://learn.microsoft.com/en-us/office/vba/api/excel.worksheet.range']Worksheet.Range property (Excel)[/URL]
    '
    For Each vDate In Worksheets("Main").Range("B5:B13")
        If IsEmpty(vDate.Value) = True Then
            vDate.Value = Date
            Exit Sub
        End If
    Next vDate