why when copy data from user form don't change by using worksheet change event ?

Hi experts ,
I have two codes
first

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Intersect(Target, [B:B]) Is Nothing Or Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [B:B]) Is Nothing Then
    Target.Offset(, -1) = Date
   Range("H2", Range("F" & Rows.Count).End(xlUp).Offset(, 2)).Formula = "=F2*G2"
   Range("H2", Range("F" & Rows.Count).End(xlUp).Offset(, 2)).Value = Range("H2", Range("F" & Rows.Count).End(xlUp).Offset(, 2)).Value
  End If
End Sub

second

Private Sub CommandButton1_Click()
 
Dim i As Long, j As Long
Dim LstRw As Long, CurrCon As String, ws As Worksheet
Dim va, a As Long, b As Long, h As Long

Set ws = sheet2
'find last used row
LstRw = ws.Range("B" & Rows.Count).End(xlUp).Row

    h = 11 * 7    'columns count on userform are 7,rows are 11
    a = 1
    ReDim va(1 To 11, 1 To 7)

    For i = 1 To h 'loop userform textbox
          b = b + 1
            va(a, b) = Me.Controls("Textbox" & i + 65).Value   'textboxes number start at 66

              If b = 7 Then a = a + 1: b = 0
    Next i

ws.Range("B" & LstRw + 1).Resize(UBound(va, 1), UBound(va, 2)) = va
MsgBox "  ok"
Dim m, n As Long
For m = 66 To 145
For n = 99 To 101

Me.Controls("textbox" & m) = ""
Me.Controls("label" & n) = ""
Next
Next
End Sub

when Press commandbutton1 will copy data to sheet2 without add date in column A and add formula in column H based on first code.
I'm not sure why don't show in sheet!! , despite of I using this way with another code and works without any problem .
is it problem from second code?
I don't attach file because I have sensitive data , if anybody is capable to solve it without attached file I truly appreciated , otherwise I will attach file with random data .
thanks

Hi,

as this is so obvious just reading the condition within the first event codeline !

[Spoiler ►] What is obviously the Target.Count value ?‼ [◄ Spoiler]

which line ?

@protonLeah
so I should get rid of this Target.Count > 1?
if it's so will pops application defined error in this line

    Target.Offset(, -1) = Date

@protonLeah
thanks for correction !
but based on worksheet change event should just populate in column A,H based on filled for adjacent cell in column B . as you see the picture will populate date until eleventh row without any filling in adjacent cell in column B , should not do that .