Hi,
I have a macro which creates rows according to a column value cell and transposes the rest of columns; and this works fine.
Sub Copydata1()
Dim data1 As Variant, data2 As Variant
Dim i As Long
With Range("A4", Cells(Rows.Count, "A").End(xlUp))
data1 = .Resize(...