Pasting Grid From Single Row Of Data

I want to create a function called PasteGrid(SourceRange As Range, GridHeight As Integer, GridWidth As Integer)

What this will do is take a long single row or column of data and paste it into a grid with a defined GridHeight and GridWidth, I have came up with the below so far:

Code:

Function PasteGrid(SourceRange As Range, GridHeight As Integer, GridWidth As Integer)
Dim rRange As Range
Dim rCell As Range
Dim DestinationRange As Range
Dim GridWidthCount As Integer
Dim GridHeightCount As Integer

[Code]....

Something appears wrong and when following the code when it hits this line:

Code:

Cells(Destination.Row + GridHeightCount, Destination.Column + GridWidthCount).Value = rCell.Value

The function just stops and I'm not too sure why?