Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("h2")) Is Nothing Then
With Target
Sheets(2).Select
Sheets(1).Columns(1).Copy Sheets(2).Range("A1")
Sheets(1).Columns(2).Copy Sheets(2).Range("B1")
Sheets(1).Columns(3).Copy Sheets(2).Range("C1")
Sheets(1).Columns(5).Copy Sheets(2).Range("D1")
Sheets(1).Range("H5:H8").Copy
Sheets(2).Range("E5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End With
End If
End Sub