How to add today's date if cell is empty, and if not skip to next column?

[Hifty]

Im a complete VBA noob and im trying to do what seems to be a simple thing.

The purpose of my code is to make a button where it checks to see if the cell is not empty, it should offset to the next column and if it is empty, then it should add todays date.
So each day I press the button it adds a new date next to the old one.

Here is the code I wrote:

Private Sub New_Date_Click()
ActiveSheet.Range("E1").Select
If Not IsEmpty(ActiveCell.Value) Then
ActiveCell.Offset(0,1)
Else
ActiveCell.Value = Date
End Sub

It gives me an error message that an Equal sign is missing on row 4 where the offset is.

The images show what im trying to do.

 

[Fluff]

What do you wan to do if E1 is not empty?

 

[Hifty]

What do you wan to do if E1 is not empty?

If E1 is not empty, I want it to check if the cell on its right is empty, so F1. And if F1 is not empty, I want it to check the next one, and so on.

 

[Fluff]

Ok, how about

Sub New_Date_Click()
   Cells(1, Columns.Count).End(xlToLeft).Offset(, 1).Value = Date
End Sub

 

[Hifty]

Ok, how about

Sub New_Date_Click()
   Cells(1, Columns.Count).End(xlToLeft).Offset(, 1).Value = Date
End Sub

Wow I was really overthinking it, didnt know some of these functions existed, thanks a bunch!
I'll keep learning VBA!

 

[Fluff]

You're welcome & thanks for the feedback.

 

[nf24eg]

You're welcome & thanks for the feedback.

Hello, is it possible to edit the code to work on Row (A) once I open the file? dd/mm/yyyy hh:mm:ss

 

[Fluff]

There is no such thing as Row A, there is column A & row 1.

 

[nf24eg]

my apologies for not clarifying, I mean instead of print the date on A1 then B1 Then C1 then D1 to be A1 , A2, A3 since the date start from Column A and moving down

 

[Fluff]

In that case you can use

   Range("A" & Rows.Count).End(xlUp).Offset(1).Value = Date