Fetch Value Available on Same Interval

[Rahulwork]

Hello Everyone,

I have a sheet contain lots of value in rows. please find below for example:

if you see , difference between Fruit and Place is equal i mean 3 rows
Same Apple and America has same interval i e 3 rows

I want Fruit in B1 and Place in B2
and in front of B1 it should be apple in C1 and America in C2.. so on...

Pls help me and thanks in advance

	A	B	C
1	Fruit
2	Red
3	Apple
4
5	Place
6	West
7	America

 

[DanteAmor]

Do you need something like this?

Book1
	A	B	C
1	Fruit	Fruit	Apple
2	Red	Place	America
3	Apple	someX	X
4		Other y	y
5	Place
6	West
7	America
8
9	someX
10	color
11	X
12
13	Other y
14	color
15	y
sheet

Try:

Sub Fetch_Value()
  Dim i As Long, j As Long
  j = 1
  For i = 1 To Range("A" & Rows.Count).End(xlUp).Row Step 8
    Range("B" & j).Resize(2, 1).Value = Application.Transpose(Array(Range("A" & i).Value, Range("A" & i + 4).Value))
    Range("C" & j).Resize(2, 1).Value = Application.Transpose(Array(Range("A" & i + 2).Value, Range("A" & i + 6).Value))
    j = j + 2
  Next
End Sub

 

[Rahulwork]

I am sorry it's not working. getting other values too. is it possible through formula?

 

[DanteAmor]

You can put here the example you used with the macro.
What result did the macro put?
What result should it be?

Use the xl2BB tool to see exactly in which cells you have the information.
Upload an excel range:
XL2BB - Excel Range to BBCode