Add content to empty cells in column - macro

[doriannjeshi]

Hi,

I need to add a 1 in the empty cells in column A to the last cell of the range, in an active sheet

Book1
	A	B
1	june	march
2
3	april	april
4	april	april
5	april	april
6
7	march	march
8
9	october	october
10
11	november	november
12
13	may	may
14
15	january	january
16
17	february	february
18	february	february
19
20	february	february
21	june	june
22
23	april	april
24
25	RESULT:
26	june	march
27	1
28	april	april
29	april	april
30	april	april
31	1
32	march	march
33	1
34	october	october
35	1
36	november	november
37	1
38	may	may
39	1
40	january	january
41	1
42	february	february
43	february	february
44	1
45	february	february
46	june	june
47	1
48	april	april
Sheet1

 

[MARK858]

Maybe...

Sub Doriann()
Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(4) = 1
End Sub

 

[doriannjeshi]

Maybe...

Sub Doriann()
Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(4) = 1
End Sub

Yes, thank you Mark

 

[AFZAL SOHAIL]

Sir, possible to this type of solution with a formula Please.

 

[MARK858]

Sir, possible to this type of solution with a formula Please.

Not with a formula in the same range but you can do the below

1. Select the range in Column A
2. Press Ctrl + G
3. Click Special
4. Select Blanks
5. Click Ok
6. Press F2
7. Type 1
8. Press Ctrl + Enter

 

[MARK858]

@doriannjeshi
You're welcome

 

[AFZAL SOHAIL]

Not with a formula in the same range but you can do the below

1. Select the range in Column A
2. Press Ctrl + G
3. Click Special
4. Select Blanks
5. Click Ok
6. Press F2
7. Type 1
8. Press Ctrl + Enter

Very very thankful to you for this information.