input date column A, increment B, select blank cell in D and input time. in a macro

[jeffstu]

Hi,

I've been trying to get a macro triggered by a button to select the next blank cell in column A and enter the current date, Static so it doesn't change when I close the spreadsheet.
Then Select column B and increment the number from the above cell
Then Select the next blank cell in column D and enter the current Time.

So Far I can get it to either enter the date in the next blank column A or enter both in column D in separate cells.

unless I do the code like this

Sub Start()

Cells(Rows.Count, "A").End(xlUp).Offset(1).Select
Application.SendKeys ("^;{TAB}{TAB}{TAB}^+;")
Application.SendKeys ("~")


End Sub

But I don't know where to start in getting the B column to increment a number.

If I,

Sub Start()

Cells(Rows.Count, "A").End(xlUp).Offset(1).Select
Application.SendKeys ("^;")
Application.SendKeys ("~")

Cells(Rows.Count, "D").End(xlUp).Offset(1).Select
Application.SendKeys ("^+;")
Application.SendKeys ("~")


End Sub

It selects column D and inputs the Date moves down a cell and inputs the time.

Any help on how to do this an increment the number in Column B would be greatly appreciated.