VBA Function to copy Row Array to destination Cell

Hi,

I need a VBA function to copy the Row Array and paste it from given cell at offset value

Suppose

SourceArray= Range("A1:G1")
DestCell = Range("D4")
OffSetValue= Range("A3")

Need a Function like

CopyArray(SourceArray,DestCell,OffsetValue)

So the Source Array should get printed from Dest Cell at offset value which is 3 ( as the value varies the array should move)



----------------------------------------------------------
X A B C D E F G
----------------------------------------------------------
1 2 4 6 0 0 0 0
2 0 0 0 0 0 0 0
3 3 0 0 0 0 0 0
4 0 0 0 0 0 0 0
5 0 0 0 2 4 6 0
----------------------------------------------------------