runtime error 1004 numberformat of range

Hi Excel Forum,

I have just recently started learning about vba and macros.

Currently, I am creating a macro to auto-input a date & time stamp(on a2) once another value has been placed on another cell(b2), with the help of a video from Youtube I am able to make the idea partly work.

I am encountering an error: "runtime error 1004 numberformat of range"

here is my macro(on "worksheet" & "change" dropdown):

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
For i = 2 To 102
If Cells(i, "B").Value <> "" Then

Cells(i, "A").Value = Date & " " & Time
Cells(i, "A").NumberFormat "m/d/yyyy h:mm"
End If
Next
Range("A:A").EntireColumn.AutoFit
End Sub

Any corrections & suggestions to make my sheet work will be great!

#Edit:

By the way the sheet is unlocked.

Code Tags Added
Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found at http://www.excelforum.com/forum-rule...rum-rules.html



(Because you are new to the forum, I have added them for you today. Please take a few minutes to read all Forum Rules and comply in the future.)