You could have looked at RESIZE in the help index
c.Resize(, 3).Copy .Range("a2")


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Benjamin" wrote in message
...
I received this code from Don Guillett:

Sub copyalltotheirsheets()
For Each c In Range("a2:a" & Cells(Rows.Count, "a").End(xlUp).Row)
With Sheets(CStr(c))
.Rows(2).Insert
c.Resize(, 2).Copy .Range("a2")
End With
Next c
End Sub

Currently this copies the data in row A and B. How could I include the
data
in column C?

Thanks,