makro til kopiering

jeg har nedenstående makro, men vil egentlig gerne at det kun er kolone B,C og D der bliver kopieret.

Er der nogen der kan tilrette makroen så det fungerer:

Sub Udførsel()
Dim Lrow As Long
Application.CutCopyMode = False
Lrow = Sheets("Test").Range("A65536").End(xlUp).Row
For i = 1 To Lrow
If Sheets("Test").Range("A" & i) = Range("H4") Then
GoTo Nummer
End If
Next
MsgBox Range("H4") & " er ikke fundet i området"
Exit Sub

Nummer:
For i = i To Lrow
If Sheets("Test").Range("A" & i) = "*" Then
MsgBox " nummer " & Range("D4") & " er ikke fundet i " & Range("H4")
Exit Sub
End If
If Sheets("Test").Range("A" & i) = Range("D4") Then
    Range("A7:c17").Select
    Selection.Clear
Worksheets("Test").Activate
  Range("B" & i + 1).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("produktion").Select
    Range("A7").Select
    ActiveSheet.Paste
  Selection.Borders.LineStyle = xlContinuous
  Range("H4").Select
Exit For

End If
Next
Application.CutCopyMode = True
End Sub