Macro to delete unnecessary rows and sort the rest

[mac_see]

Book3
	A	B	C	D	E	F	G	H	I	J	K	L
1	A	1	0.00%			C	1	80.00%		C	86.96
2		2				B	3	75.00%		B	13.04
3		3				B	2	25.00%
4	B	1	13.04%			C	3	15.00%
5		2		25.00%		C	2	5.00%
6		3		75.00%
7	C	1	86.96%	80.00%
8		2		5.00%
9		3		15.00%
10
Sheet1

I need a macro that can eliminate rows where figures in column D are blank and then sort the rest of the rows based on column D and put the result in column F:H

Similarly, eliminate rows where figures in column C are blank and then sort the rest of the rows based on column C and put the result in coumn J:K

There are merged cells which I cannot unmerge. The above is just an example, If I read and understand the logic behind the macro, I can manipulate it and use it for my data

Thanx
Maxi

 

[acw]

Maxi

Hopefully this will get you going.

Sub bbb()
 lastrow = Cells(Rows.Count, "B").End(xlUp).Row
 Range("A1:A" & lastrow).SpecialCells(xlCellTypeBlanks).Formula = "=A1"
 Range("A1:A" & lastrow).Value = Range("a1:a" & lastrow).Value
 Range("D1:D" & lastrow).Copy Destination:=Range("H1")
 Range("H1:H" & lastrow).Sort key1:=Range("H1"), order1:=xlDescending, header:=xlNo
 For Each ce In Range("H1").CurrentRegion
  ce.Offset(0, -1).Value = Evaluate("=Index(B:B,Match(" & ce.Value & ", D:D, 0))")
  ce.Offset(0, -2).Value = Evaluate("=Index(A:A,Match(" & ce.Value & ", D:D, 0))")
 Next ce

 Range("C1:C" & lastrow).Copy Destination:=Range("K1")
 Range("K1:K" & lastrow).Sort key1:=Range("K1"), order1:=xlDescending, header:=xlNo
 For Each ce In Range("K1").CurrentRegion
  ce.Offset(0, -1).Value = Evaluate("=Index(A:A,Match(" & ce.Value & ", C:C, 0))")
 Next ce
End Sub

Tony