UBound Array with Transpose

[Glasgowsmile]

Good day,

I have the following code and I need to transpose one of the returns but I'm unsure how to easily go about it.

Dim wkbCrntWorkBook As Workbook
   Dim wkbSourceBook As Workbook
  
   Dim sh As Worksheet, ws As Worksheet
   Dim rg1 As Variant, rg2 As Variant, rg3 As Variant
   Dim r1 As Long, c1 As Long
   Dim r2 As Long, c2 As Long
   Dim r3 As Long, c3 As Long
  
   Set wkbCrntWorkBook = ActiveWorkbook
   Set sh = ActiveSheet
  
   If .SelectedItems.Count > 0 Then
         Workbooks.Open .SelectedItems(1)
         Set wkbSourceBook = ActiveWorkbook
         Set ws = wkbSourceBook.Sheets(1)
        
         With ws
            rg1 = .Range("S4:S5").Value
            rg2 = .Range("P9:Q33").Value
            rg3 = .Range("J123:J147").Value
        
            r1 = UBound(rg1): c1 = UBound(rg1, 2)
            r2 = UBound(rg2): c2 = UBound(rg2, 2)
            r3 = UBound(rg3): c3 = UBound(rg3, 2)
         End With
        
         With sh
        
         .Range("A2").Resize(r1, c1).Value = rg1 <-- I need this transposed
         .Range("A5").Resize(r2, c2).Value = rg2
         .Range("C5").Resize(r3, c3).Value = rg3
        
         End With

 

[Fluff]

How about

.Range("A2").Resize(c1, r1).Value = Application.Transpose(rg1)

 

[Glasgowsmile]

How about

.Range("A2").Resize(c1, r1).Value = Application.Transpose(rg1)

Not working, doesn't transpose the data and it's even pulling the wrong cell now it looks like.

 

[Fluff]

If it's pulling the wrong cell that has nothing to do with changing that one line of code.
Also it works for me the data from S4:S5 goes into A2:B2

 

[Glasgowsmile]

If it's pulling the wrong cell that has nothing to do with changing that one line of code.
Also it works for me the data from S4:S5 goes into A2:B2

I found that it pulls the right data, just wrong formatting on the cell but it doesn't transpose. It should be going into A2:B2 but it goes into A2 and A3.

 

[Fluff]

It should be going into A2:B2

That's exactly what the code I posted does, did you copy paste the code, or change what you already had?

 

[Glasgowsmile]

That's exactly what the code I posted does, did you copy paste the code, or change what you already had?

Weird. I typed it in and it didn't work, I copied it over and it works? I don't understand that but at least it works. Thanks!

 

[Fluff]

Did you change the order of the arguments in the Resize?

 

[Glasgowsmile]

Did you change the order of the arguments in the Resize?

No, I typed exactly as I saw it and re-checked it multiple times against what you suggested but it looked exactly the same. Even when I copied/pasted your code, nothing changed from what I saw but I obviously must have missed something.

 

[Fluff]

Ok, glad it's working & thanks for the feedback.