Run-time error '1004' in a column to row transposition - vba

Question

On the first 'For' loop line of the second chunk:
I get
Run-time error '1004'
Because this part of the code is at the end of the whole code, I moved the Dimensions and object Sets prior to the problematic lines.
I have the same 'For' loop higher in the code in Chunk 1 below.
The only difference is that in Chunk 2 the 'For'loop is for 'í' and in Chunk 2 is for 'k'.
Chunk 1:
Dim ExposureDataInput As Worksheet
Dim ManualSimulation As Worksheet
Set EDI = Sheets("ExposureDataInput")
Set MS = Sheets("ManualSimulation")
Dim i As Integer
Dim n As Integer
Dim j As Integer
For i = 2 To EDI.Range("B" & Rows.Count).End(xlUp).Row
If EDI.Range("B" & i).Value > 0 Then
n = MS.Range("A" & Rows.Count).End(xlUp).Row + 1
MS.Range("A" & n).Value = EDI.Cells(i, 1).Value
n = MS.Range("B" & Rows.Count).End(xlUp).Row + 1
MS.Range("B" & n).Value = EDI.Cells(i, 2).Value
n = MS.Range("C" & Rows.Count).End(xlUp).Row + 1
MS.Range("C" & n).Value = EDI.Cells(i, 4).Value
n = MS.Range("D" & Rows.Count).End(xlUp).Row + 1
MS.Range("D" & n).Value = EDI.Cells(i, 6).Value
n = MS.Range("E" & Rows.Count).End(xlUp).Row + 1
MS.Range("E" & n).Value = EDI.Cells(i, 8).Value
n = MS.Range("F" & Rows.Count).End(xlUp).Row + 1
MS.Range("F" & n).Value = EDI.Cells(i, 10).Value
n = MS.Range("G" & Rows.Count).End(xlUp).Row + 1
MS.Range("G" & n).Value = EDI.Cells(i, 12).Value
End If
Next i
Chunk 2:
error 424: Object Required or error 1004: Dimension Not Set.
Same Dimensions are set for 'í', 'n' & 'j' in Chunk 1.
Dim HistoricalDataandExcessReturns As Worksheet
Set HDaER = ThisWorkbook.Worksheets("HistoricalDataandExcessReturns")
Dim k As Integer
Dim y As Integer
For k = 2 To EDI.Range("B" & Rows.Count).End(xlUp).Row
If EDI.Range("B" & k).Value > 0 Then
y = HDaER.Range(Columns.Count & 1).End(xlToLeft).Column + 1
HDaER.Range(y & 1).Value = EDI.Cells(1, k).Value
y = HDaER.Range(Columns.Count & 2).End(xlToLeft).Column + 1
HDaER.Range(y & 2).Value = EDI.Cells(2, k).Value
End If
Next k
Chunk 3 with similar For loop:
For j = 2 To MS.Range("$A" & Rows.Count).End(xlUp).Row
With MS.Range("$J" & j).Borders
.LineStyle = xlContinous
.Color = vbWhite
.Weight = xlThin
End With
With MS.Range("$K" & j).Borders
.LineStyle = xlContinous
.Color = vbWhite
.Weight = xlThin
End With
With MS.Range("$L" & j).Borders
.LineStyle = xlContinous
.Color = vbWhite
.Weight = xlThin
End With
Next j
Generally I would prefer a direct link between the cells in 'MS' ws and the cells in the 'HDaER' ws row that I want to transpose to. I like the '=' approach.
I replaced 'MS' sheet with 'EDI' sheet in Chunk 1 to make it almost identical with the Rows.Count for 'i' in Chunk 2.
How can I tweak the 'For' loop to work with the '='?

Answer 1

You cannot use Range like that (it's column then row), use Cells instead. Plus it's xltoleft.
'For k = 2 To MS.Range("A" & Rows.Count).End(xlUp).Row
' y = HDaER.Cells(1, Columns.Count).End(xltoLeft).Column + 1
' HDaER.Cells(1, y).Value = MS.Cells(k, 1).Value
'Next k
'Avoiding a loop, think this will work
'ms.Range("A2", ms.Range("A" & ms.Rows.Count).End(xlUp)).Copy
'HDaER.Cells(1, HDaER.Columns.Count).End(xltoLeft).Offset(, 1).PasteSpecial Transpose:=True
Sub x()
Dim HDaER As Worksheet, MS As Worksheet
Set HDaER = ThisWorkbook.Worksheets("HistoricalDataandExcessReturns")
Set MS = ThisWorkbook.Worksheets("ManualSimulation")
MS.Range("A2", MS.Range("A" & MS.Rows.Count).End(xlUp)).Copy
HDaER.Cells(1, HDaER.Columns.Count).End(xlToLeft).Offset(, 1).PasteSpecial Transpose:=True
End Sub