Autofill Question

[RHONDAK72]

Hi. I use Excel 2010. I want to write some code that will look at the cell in column A. If the cell is not blank, then the column B value will fill in with the current date. Is there a way to just write the code to get the current date to autofill downward in Column B until column A is blank? Or, would I need to do some sort of an if/then statement that loops until the column A value is blank? Any code suggestions or examples are much appreciated.

Example Result:

Row Column A Column B
1 Comment 1 4/10/2014
2 Comment 2 4/10/2014
3 Comment 3 4/10/2014
4 Comment 4 4/10/2014
5 Comment 6 4/10/2014
6
7
8
9

 

[VoG]

Try

Sub test()
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Range("B1:B" & LR).Value = Date
End Sub

 

[RHONDAK72]

This works! Thank you so much, VoG!