Auto Fill Todays Date In Column K in Last Value Found in Column A

Can somebody help me figure out a way to fill in today's date to every row found with a Value in Column A and this is all done on sheet 3. The date will be placed into Column K. This is what I have currently and as you can see im completely lost. Thank You.

Dim arrTmp As Variant
Dim lngRow As Long
With Worksheets("sheet3") 'adapt
arrTmp = .Range(.Cells(1, 11), .Cells(.Rows.Count, 11).End(xlUp))
For lngRow = 1 To UBound(arrTmp)
If arrTmp(lngRow, 11) = "" Then arrTmp(lngRow, 11) = arrTmp(lngRow - 1, 11)
Next
ActiveCell.FormulaR1C1 = "=TODAY()"
.Range(.Cells(1, 11), .Cells(UBound(arrTmp), 11)) = arrTmp
End With

Another:

Please Login or Register  to view this content.

Depending on your row count this maybe a little faster:

Please Login or Register  to view this content.