Experts Required..

[VBABEGINER]

Hi,

Another query on the same topic.

yesterday, Villy gives me an excellent solution, following -

If Range("A10").Value <> "" Then
Range("B13").Select
ActiveCell.FormulaR1C1 = "=RIGHT(R[-3]C[-1],11)"
End If
For i = 13 To Range("A" & Rows.Count).End(xlUp).Row
If Range("B13") <> Empty Then
Range("B" & i).Value = Range("B13")
End If
Next

This is for counting the total no. in Col A and by reading this no. count and data paste in col B.

The Problem is - let me example u, oderwis u will not get this -

A B
123 123
879 123
417 123 This is one data.

Stop here.......now the below data read "521" this value to their respective rows. Above is "123".

521 521
897 897
321 321 and this is another data.

Hereabove code read all content of Col A. Wht i require, if any space, stop the reading below data and paste only that much data to col b 14, 15,16... from cell b13.


Is this possible Experts?