fill down vba

[Excelmasters]

Hi guys,

Am New to the forum and seeking any one's help.

below is my excel looks like, i have just added random data since my original data is sensitive. i need a macro for column C which will do autofill the range.

where you can see the c3 "excel" should get updated till c8 and "mouse" from C9 should updated down till next word.

i have more than 2000 rows like this.. i have tried macro recording. but no use because the data can change everyday.

thanks for your help

Excel 2010
	A	B	C
1	User 1	User 2	user 3
2	a	1	excel
3	b	2
4	c	3
5	a	4
6	b	5
7	c	6
8	a	7
9	b	8
10	c	9	Mouse
11	a	10
12	b	11
13	c	12
14	a	13
15	b	14
16	c	15
17	a	16
18	b	17
19	c	18
20	a	19
21	b	20
22	c	21
23	a	22
24	b	23
25	c	24	Keyboard
26	a	25
27	b	26
28	c	27
29	a	28
30	b	29
31	c	30
32	a	31
33	b	32
34	c	33	time
35	a	34
36	b	35
37	c	36
38	a	37
39	b	38
40	c	39
41	a	40
Sheet2

 

[Rick Rothstein]

Give this non-looping macro a try...

Sub FillBlanksInColumnC()
  Dim LastRow As Long
  LastRow = Cells(Rows.Count, "A").End(xlUp).Row
  On Error Resume Next
  With Range("C3:C" & LastRow)
    .SpecialCells(xlBlanks).FormulaR1C1 = "=R[-1]C"
    .Value = .Value
  End With
  On Error GoTo 0
End Sub

 

[Michael M]

Maybe this

Sub MM1()
Dim lr As Long, r As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
For r = 1 To lr
If Range("C" & r + 1).Value = "" Then Range("C" & r + 1).Value = Range("C" & r).Value
Next r
End Sub

 

[Excelmasters]

works perfectly.. thanks