Transpose multiple rows and columns into one column with ignoring blanks

[parankush]

i want to Transpose multiple rows and columns into one column with ignoring blanks. I have a large amount of data. But i can provide with a sample.Is there any VBA code i can use for it.

 

[parankush]

So I put the macro in post #25 so you can test the macro in post #25.

Yes, it is working. and it's great.
Thank you.

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.

 

[CA_Punit]

Book1
	A	B	C	D	E	F	G	H	I	J
1
2
3
4				Month	A	B	C			Month
5				Jan		6	11			A
6				Feb	3	9	15			B
7					5		5			C
8				April	7	12	4.33			Jan
9				May	9	15	1.333			FALSE
10				June	11		-1.6667			6
11										11
12										Feb
13										3
14										9
15										15
16										FALSE
17										5
18										FALSE
19										5
20										April
21										7
22										12
23										4.33
24										May
25										9
26										15
27										1.333
28										June
29										11
30										FALSE
31										-1.6667
Sheet1

Cell Formulas
Range	Formula
J4:J259	J4	=IFERROR(INDEX(IF(Data<>"",Data),INT((ROW(1:256)-ROW(1:1))/4)+1,MOD(ROW(A1:A256)-ROW(A1),4)+1),"")
Dynamic array formulas.

Named Ranges
Name	Refers To	Cells
Data	=Sheet1!$D$4:$G$10	J4

So i have done a part of the question. This is not a complete solution.
My Question is how to remove the False which is because of Blank from the array without using Filter Formula?