Transpose VBA not working

[devj364]

Hello All,

I am having an issue with this little piece of code. For some reason it is only transposing the information every other line and has been driving me crazy. I am still pretty new to VBA, so any help would be greatly appreciated.

Dim numrows As Integer
Dim counter As Integer
Dim x As Integer
Dim y As Integer
Dim trans As Integer


numrows = Range("A11", Range("A1").End(xlDown)).Rows.Count


Range("A11:D11").Select


counter = 1
 
    Do Until x = numrows
    trans = counter * 4
    
        counter = counter + 1
        Application.CutCopyMode = True
        Selection.Copy
        ActiveCell.Offset(1, 0).Select
        Range(Cells(Selection.Row, 1), Cells(Selection.Row, 4)).Select


            Application.Wait Now + #12:00:01 AM#
       
            
            Range("g9:g12").Offset(trans, 0).PasteSpecial Transpose:=True


            x = x + 1
    




Application.Wait Now + #12:00:01 AM#


Loop


End Sub

Thank you in advance.

 

[offthelip]

You haven't said what you are trying to do, but looking at your code , I think you are trying to get columns ( A to D) inot one column (G)
this code will do that for you and it is using variant arrays so it will be much much faster than the way you are doing it.

Sub test()
numrows = Cells(Rows.Count, "A").End(xlUp).Row


inarr = Range("A1:D" & numrows)
Range("G9:G" & 4 * (numrows - 10)) = ""
outarr = Range("G9:G" & 10 + 4 * (numrows - 10))
indi = 1
For i = 11 To numrows
  For j = 1 To 4
    outarr(indi, 1) = inarr(i, j)
    indi = indi + 1
  Next j
Next i
Range("G9:G" & 10 + 4 * (numrows - 10)) = outarr


End Sub