I wish to copy only the listed cells Range does not like my way of saying
this. Range target offset is the area I am having problem. Is it poss to only
copie the listed cells? This procedure is called from action on another
sheet. The cells to copy are on that sheet. they are column(A_D_E_F_H_M) M is
trigger cell on sheet.
Thanks to all we sure do get ourselves into things.
Thanks

Public Sub CopyDoIt(ByVal Target As Range)
Dim wksSummary As Worksheet
Dim rngPaste As Range
Set wksSummary = Sheets("Announcer")
Set rngPaste = wksSummary.Cells(65536, "A").End(xlUp).Offset(1, 0)
Application.EnableEvents = False
Set rngPaste = rngPaste.Offset(0, 0)

Range(Target.Offset(0, -12), Target.Offset(0, 0), (-1), (4), (5), (8),
(13)).Copy _

Destination:=rngPaste
rngPaste.Offset(0, 6) = Target
Application.EnableEvents = True
End Sub