Try it
Let oSheet is Object WorkSeet from Excel where you are working
And Let "A1:B5" you need copy to "c1:g2"
Then

oRangeFrom=oSheet.Range(oSheet.Cells(1,1),oSheet.Cells(5,2))
oRangeTo=oSheet.Range(oSheet.Cells(1,3),oSheet.Cells(2,7))
oRangeFrom.Copy()
oRangeTo.SpecialPaste(-4104,-4142,.F.,.T.)

P.S.
I.m very sory
My English is very bad.

And for next time
If you want to see cod for xlAnithing
Create macros for excel

Range("a1").Value=xlAnithing