change target range to another worksheet

Do like oluapseyer suggests; copy the code to the sheet1 code module. And then also add a reference to the Report sheet like below.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target = vbNullString Then Exit Sub
    If Target.Address = "$B$3" Then
        Application.EnableEvents = False
        fRow = Application.Match(Target, Sheets("Table").Columns(1), 0)
        If Not IsError(fRow) Then
            With Sheets("Report").Range("A" & Rows.Count).End(xlUp)
                .Offset(1).Resize(, 4).Value = Sheets("Table").Cells(fRow, 1).Resize(, 4).Value
                .Offset(1, 4) = Now()
                .Offset(1, 5) = Environ("username")
                .Offset(1, 6) = Sheets("Table").Cells(fRow, 5)
            End With
        Else
            MsgBox "Equipment not in the list"
        End If
        Application.EnableEvents = True
    End If
End Sub