last 5 yellow highlights transpose

[makinmomb]

I have these kind of data on a1

[TABLE="width: 76"]
<colgroup><col></colgroup><tbody>[TR]
[TD] 250,000[/TD]
[/TR]
[TR]
[TD] 48,000[/TD]
[/TR]
[TR]
[TD] 50,000[/TD]
[/TR]
[TR]
[TD] 35,000[/TD]
[/TR]
[TR]
[TD] 40,000[/TD]
[/TR]
[TR]
[TD] 60,000[/TD]
[/TR]
[TR]
[TD] 35,000[/TD]
[/TR]
[TR]
[TD] 230,000[/TD]
[/TR]
[TR]
[TD] 35,000[/TD]
[/TR]
[TR]
[TD] 16,000[/TD]
[/TR]
[TR]
[TD] 15,000[/TD]
[/TR]
[TR]
[TD] 814,000[/TD]
[/TR]
[TR]
[TD] 45,000[/TD]
[/TR]
[TR]
[TD] 50,000[/TD]
[/TR]
[TR]
[TD] 90,000[/TD]
[/TR]
[TR]
[TD] - [/TD]
[/TR]
[TR]
[TD] 200,000[/TD]
[/TR]
[TR]
[TD] 140,000[/TD]
[/TR]
[TR]
[TD] 210,000[/TD]
[/TR]
[TR]
[TD] 65,000[/TD]
[/TR]
[TR]
[TD] 800,000[/TD]
[/TR]
[TR]
[TD] 144,000[/TD]
[/TR]
[TR]
[TD] 40,000[/TD]
[/TR]
[TR]
[TD] 5,000[/TD]
[/TR]
[TR]
[TD] - [/TD]
[/TR]
[TR]
[TD] 65,000[/TD]
[/TR]
[TR]
[TD] 25,000[/TD]
[/TR]
[TR]
[TD] 10,000[/TD]
[/TR]
[TR]
[TD] 289,000[/TD]
[/TR]
[TR]
[TD] 50,000[/TD]
[/TR]
[TR]
[TD] 43,000[/TD]
[/TR]
[TR]
[TD] 41,000[/TD]
[/TR]
[TR]
[TD] 73,000[/TD]
[/TR]
[TR]
[TD] - [/TD]
[/TR]
[TR]
[TD] 200,000[/TD]
[/TR]
[TR]
[TD] 10,000[/TD]
[/TR]
[TR]
[TD] 10,000[/TD]
[/TR]
[TR]
[TD] 427,000[/TD]
[/TR]
[TR]
[TD] 43,700[/TD]
[/TR]
[TR]
[TD] 106,200[/TD]
[/TR]
[TR]
[TD] 5,500[/TD]
[/TR]
[TR]
[TD] 2,000[/TD]
[/TR]
[TR]
[TD] 2,000[/TD]
[/TR]
[TR]
[TD]0[/TD]
[/TR]
[TR]
[TD] 556,000[/TD]
[/TR]
[TR]
[TD] 715,400[/TD]
[/TR]
[TR]
[TD] 45,400[/TD]
[/TR]
[TR]
[TD] 444,000[/TD]
[/TR]
[TR]
[TD] 27,000[/TD]
[/TR]
[TR]
[TD] 41,000[/TD]
[/TR]
[TR]
[TD] 73,000[/TD]
[/TR]
[TR]
[TD] - [/TD]
[/TR]
[TR]
[TD] 240,000[/TD]
[/TR]
[TR]
[TD] 5,000[/TD]
[/TR]
[TR]
[TD] 10,000[/TD]
[/TR]
[TR]
[TD] 15,000[/TD]
[/TR]
[TR]
[TD] 70,000[/TD]
[/TR]
[TR]
[TD] 48,000[/TD]
[/TR]
[TR]
[TD] 1,018,400[/TD]
[/TR]
</tbody>[/TABLE]

 

[makinmomb]

1,018,400 , 715,400 , 427,000 , 289,000 and 800,000

Are in yellow highlights

I need a macro that should put to do the following

put on c1 1018400
put on d1 715400
put on e1 42700
put on f1 289000
put on g1 800000

 

[mumps]

Try:

Sub TranposeRange()
    Application.ScreenUpdating = False
    Dim LastRow As Long
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Range("A1:A" & LastRow).AutoFilter Field:=1, Criteria1:=RGB(255, 255, 0), Operator:=xlFilterCellColor
    Range("A2:A" & LastRow).SpecialCells(xlCellTypeVisible).Copy
    Range("C1").PasteSpecial Transpose:=True
    Range("A1").AutoFilter
    Application.ScreenUpdating = True
End Sub

The macro assumes you have headers in row 1 and your data starts in row 2.

 

[makinmomb]

mumps thank you very much it is working the way i need it

 

[mumps]

You are very welcome.