Macro to add constant value

[TimmerSuds]

I need to incorporate the following into an existing macro:

For any cell in column A (starting with row 2) that is not blank then fill the corresponding cell in column D with 'ABC'

Any help appreciated

I need to incorporate the following into an existing macro:

Note: Column E is a date field...

For any cell in column E (starting with row 2) that is not blank then perform the following in column F:

Add one day to Column E and enter the new date into the corresponding row in Column F

Thanks!

[mrice]

Try

Sub Test()
For N = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    If Cells(N, 1) <> "" Then Cells(N, 4) = "ABC"
Next N
End Sub

Sub Test2()
For N = 2 To Cells(Rows.Count, 5).End(xlUp).Row
    If Cells(N, 5) <> "" Then Cells(N, 6) = Cells(N, 5) + 1 'Make sure col F is formated as date
Next N
End Sub

[TimmerSuds]

Try

Sub Test()
For N = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    If Cells(N, 1) <> "" Then Cells(N, 4) = "ABC"
Next N
End Sub

Sub Test2()
For N = 2 To Cells(Rows.Count, 5).End(xlUp).Row
    If Cells(N, 5) <> "" Then Cells(N, 6) = Cells(N, 5) + 1 'Make sure col F is formated as date
Next N
End Sub

Thanks a lot - both worked fine...

Now I need to populate Column M the same way except instead of adding 1 day to another cell, I need to have it add 1 day to today's date.

I tried this but it didn't work...

For N = 2 To Cells(Rows.Count, 5).End(xlUp).Row
If Cells(N, 5) <> "" Then Cells(N, 13) = Today() + 1 'Make sure col F is formated as date
Next N

Thanks again

[mrice]

Try

For N = 2 To Cells(Rows.Count, 5).End(xlUp).Row
If Cells(N, 5) <> "" Then Cells(N, 13) = Date + 1 
Next N