Error message 400

I'm following the instructions to run the macro on this thread. When I do I get an error dialogue box saying 'Microsoft Visual Basic 400'. I'm very much a novice at macros and VBA. I'm not sure how to fix the problem. Any advice would be greatly appreciated. I'm using Excel 2011 14.4.3.

Press F8 in your code and step through to find where the problem is.

I'm now getting RUN TIME ERROR 1004. Not sure why the macro won't work for me.

Hi,
I'm trying to run this code:

Sub ShiftValuesLeft()
Dim iRows As Integer, iCols As Integer, x As Integer, y As Integer, icount As Integer
Dim MyArray(), rTop As Range
iRows = 50
iCols = 10
Set rTop = Range("Top")
ReDim MyArray(iRows, iCols)


For x = 1 To iRows
For y = 1 To iCols
If rTop.Cells(x, y) <> "" Then
MyArray(x, icount) = rTop.Cells(x, y)
icount = icount + 1
End If

Next y
icount = 0

Next x

For x = 1 To iRows
For y = 1 To iCols
If MyArray(x, icount) <> "" Then
Range("Output").Cells(x, y) = MyArray(x, icount)
icount = icount + 1
End If
Next y
icount = 0
Next x

End Sub

When I debug (using F8) the following lines are highlighted:
Sub ShiftValuesLeft()
iRows = Range("Top").CurrentRegion.Rows.Count

Oops, I'm sorry. Got a bit confused with my cut and pastes. This is the code in my macro:

Sub ShiftValuesLeft()
Dim iRows As Integer, iCols As Integer, x As Integer, y As Integer, icount As Integer
Dim MyArray(), rTop As Range
iRows = Range("Top").CurrentRegion.Rows.Count
iCols = Range("Top").CurrentRegion.Columns.Count - 1
Set rTop = Range("Top")
ReDim MyArray(iRows, iCols)


For x = 1 To iRows
For y = 1 To iCols
If rTop.Cells(x, y) <> "" Then
MyArray(x, icount) = rTop.Cells(x, y)
icount = icount + 1
End If

Next y
icount = 0

Next x

For x = 1 To iRows
For y = 1 To iCols
If MyArray(x, icount) <> "" Then
Range("Output").Cells(x, y) = MyArray(x, icount)
icount = icount + 1
End If
Next y
icount = 0
Next x

End Sub