How to create a Macro button to put date in selected cell within specific column

How to create a macro button to put date in selected cell within specific column

Requirement:

The user's macro is supposed to put in a current date in chosen cell when the user presses a button.

But only in one column this action can be allowed. Column starting from cell B7 and down to infinity.

And date should stay what it was when file is open another day.

This is the macro the user is using:

Code:

Private Sub Date1_Click()

ActiveCell.Offset(0, 0).Range("A1").Select

TIME1 = Date
ActiveCell = TIME1
ActiveCell.Select
Selection.NumberFormat = "dd/mm/yyyy"
ActiveWorkbook.Save

End Sub

When the user puts Range("B7:B400"), date appears not in chosen cell.

Solution:

Code:

Private Sub Date1_Click()

With ActiveCell
    If .Column = 2 And .Row > 6 Then
        .Value = Date
        .NumberFormat = "dd/mm/yyyy"
        ActiveWorkbook.Save
    End If
End With

End Sub

Obtained from the OzGrid Help Forum.

Solution provided by Stephen R.