VBA code from rows to columns not working

[Lyrad39]

Good day community,

I am having some issues with my codes that were supposed to transpose from rows to columns in sheet 4 as shown in the first photo. However, with a new worksheet the codes seem to transpose the columns differently as shown in "JUL" and "SHEET4". Any help would be greatly appreciated and thank you in advance!

Here are the codes:

Sub Transpose_PasteSpecial()

Range("A1:S219").Copy
Worksheets("Sheet4").Range("A4").PasteSpecial Transpose:=True
  
  Dim Lastcol As Long, c As Long
  
  Worksheets("Sheet4").Activate
  
  Lastcol = Cells.Find(What:="*", LookIn:=xlValues, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
  For c = 11 To Lastcol Step 10
    Cells(5, c).Resize(16, 10).Cut Destination:=Range("C" & Rows.Count).End(xlUp).Offset(1, -2)
  Next c
  ActiveSheet.UsedRange.Offset(, 10).ClearContents
  
End Sub

 

[Legacy 143009]

Your setup seems to be quite complicated. I can give a basic example:

Sub test()
  Dim tmp As Variant, myRange as Variant
  tmp = Range("A1:D4")
  myRange = Application.Transpose(tmp)
  Range("A1").Resize(UBound(myRange,1),Ubound(myRange,2)) = myRange
End Sub

Note that Application.Transpose will convert single-column ranges into a 1D array. You will require a different setup.

Sub test()
  Dim tmp As Variant, myRange as Variant, tmp2() As Variant
  tmp = Range("A1:D4")
  If UBound(tmp,2)=1 Then
    Redim tmp2(1 to 1, 1 To Ubound(tmp))
    For i = 1 to Ubound(tmp)
      tmp2(1,i) = tmp(i,1)
      
    Next
Range("A1").Resize(,Ubound(tmp2,2)) = myRange
  Else
    myRange = Application.Transpose(tmp)    Range("A1").Resize(UBound(myRange,1),Ubound(myRange,2)) = myRange
  End If
End Sub