adjusting code search in multiple sheets using by inputbox

Private Sub Worksheet_Change(ByVal Target As Range)

  Dim sh As Worksheet, sh1 As Worksheet
  Dim a As Variant, b() As Variant, nID As Variant, cols As Variant
  Dim lr As Long, lr2 As Long, i As Long, j As Long, k As Long

  If Target.Address(0, 0) = "A2" Then
    If Target.CountLarge > 1 Then Exit Sub
    Set sh1 = Sheets("SHEET1")
    nID = Target.Value
    sh1.Rows("8:" & Rows.Count).ClearContents
    ' ÚÏÏ ÇáÇÚãÏÉ
    cols = Array(1, 2, 3, 4)
    For Each sh In Sheets
      lr = lr + sh.Range("a" & Rows.Count).End(3).Row
    Next
    ReDim b(1 To lr, 1 To 4)
    '
    For Each sh In Sheets
      If sh.Name <> sh1.Name Then
      '
        a = sh.Range("A2:d" & sh.Range("a" & Rows.Count).End(3).Row).Value2
        For i = 1 To UBound(a, 1)
       
          If a(i, 1) = IIf(nID = "", a(i, 1), nID) Then
            k = k + 1
            For j = 1 To UBound(a, 2)
              If cols(j - 1) <> 0 Then b(k, cols(j - 1)) = a(i, j)
            Next j
          End If
        Next i
        Erase a
      End If
    Next sh
    '
    If k > 0 Then
   
      sh1.Range("A8").Resize(k, 4).Value = b
    Else
      MsgBox "No data"
    End If
  End If
End Sub