Since you didn't include all code, it's hard to tell what you want. Maybe
this helps?
It will copy columns a-e for the target row.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a2:a22")) Is Nothing Then
Target.Resize(, 5).Copy
End If
End Sub

--
Don Guillett
SalesAid Software

"Curt" wrote in message
...
Have the following code do not fully understand the parts. It works but I
am
trying to only copy & paste part of the data. Data is in columns 'A' thru
'H'. I wish to copy
'A' thru 'E'. Have hit a brain dead spot.
If someone can define or set this code I think then I can get it.
Set rngPaste = rngPaste.Offset(0, 0)
Range(Target.Offset(0, -7), Target.Offset(0, -7)).Copy _
Destination:=rngPaste
rngPaste.Offset(0, 7) = Target