Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B2" And Range("B2") <> "" Then
Application.EnableEvents = False
With Sheets("REPORT").Cells(Rows.Count, 2).End(xlUp)(2)
.Value = Me.Range("B5").Value
.Cells(1, 2) = Me.Range("E5")
.Cells(1, 3) = Me.Range("G5")
End With
Application.EnableEvents = True
End If
End Sub