Swap the two loops and it should work, though there may need to be some tweaking.
For j = 2 To LastCol 
For i = 2 To LastRow
If it doesn't work post another attachment with the new data layout.