change
Worksheets("input").Range("A20:AG20").ClearContent s

to
Sheets("input").Range("A20:M20,Q20:AG20").ClearCon tents

?????

--
Regards,
Tom Ogilvy


"Brian McGuire" wrote in message
...
I have written a macro that allows me to input a line of data on a sheet
and hit a button and allow it to be added to the next open line on another
sheet. This works fine, but I now need to be able to skip cells in between
the ones I am adding, like add "A20:G20, M20:AB20" Here is what I am using
right now to add this line of data:

Private Sub CommandButton1_Click()
'
' Macro3 Macro
' Macro recorded 12/8/2003 by Brian McGuire

Sheets("input").Range("A20:M20,Q20:AG20").Copy Destination:= _
Sheets("electrical").Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0)
Worksheets("input").Range("A20:AG20").ClearContent s
End Sub

But as I have it written now, it replaces the entire data line, which I
can't do anymore. Any input on how to get around this would be greatly
appreciated. Thanks in advance.

Brian