Transpose Column to Row (2 column)

[ADITYAKANWAR]

Dear Sir,

Can you help me

Actually, I need to transpose the data from column to Row (Below is the example of my data)

Format is not always same some have 7 rows and some have 8 rows, After every data, there is Blank row,for me main problem his Amount (Column B), I need to insert the new Column After EFT INCOMING and put the amount

Please Consider Book1

[Fennek]

Hi,

for book1.xlsx this code should help:

Sub Main
for each Ar in columns(2).specialcells(2).areas
    Ar.cells(1).offset(0,2).resize(1, Ar.count) = application.transpose(Ar)
next Ar
End Sub

regards

[ADITYAKANWAR]

it's working not properl

I Need Date and Amount also

Thanks in Advance

Hi,

for book1.xlsx this code should help:

Sub Main
for each Ar in columns(2).specialcells(2).areas
    Ar.cells(1).offset(0,2).resize(1, Ar.count) = application.transpose(Ar)
next Ar
End Sub

regards