How-to-Formula Copying Numbers from rows to rows

[joram7]

Book2
	A	B	C	D
1	3091650549
2
3	4312975094
4
5
6
7
8	4312975095
9
10
11
12	4312975096
13
14
15
16
17
18
19
20
21
22
23	4312975097
24
25	4312975098
26
Sheet1

As above i need to copy e.g. 3091650549 to A2 then 4312975094
up to A7 then copy 4312975095 up till A11. this will repeat until end of the line.
Is there a macro or formula for this?

 

[Barrie Davidson]

Why not try this:
B1 formula =A1
B2 formula = IF(A2="",B1,A2)
Copy this to the end of data range
Copy column B and paste values to column A.

Does this help you out?

 

[Krishnakumar]

Hi,

Sub FillBlanks()
    With Columns(1).SpecialCells(xlCellTypeBlanks)
        .FormulaR1C1 = "=R[-1]C"
        .Value = .Value
    End With
End Sub

HTH