Continuous Macro

[hstsunflower]

Hi There,

Is it possible to create a Macro that will continue through the end of my worksheet and be useable on other worksheets even if the number of rows with data changes?

ie; my worksheet contains 13526 rows. I would like to create a macro that will do the following in the same column down thru row 13526:
Selection.End(xlDown).Select
Range("A122").Select
ActiveCell.FormulaR1C1 = "x"
Selection.End(xlDown).Select
Range("A124").Select
ActiveCell.FormulaR1C1 = "x"
Range("A125").Select

and continue down through all rows to the end of row 13526.

I would also like to use this macro in other worksheets however the number of rows will definitely vary.

Thanks in advance for your help.

 

[Fluff]

Hi & welcome to MrExcel.
What are you trying to do?

 

[hstsunflower]

my worksheet contains 13526 rows. I would like to create a macro that will do the following in the same column down thru row 13526:
Selection.End(xlDown).Select
Range("A122").Select
ActiveCell.FormulaR1C1 = "x"
Selection.End(xlDown).Select
Range("A124").Select
ActiveCell.FormulaR1C1 = "x"
Range("A125").Select

and continue down through all rows to the end of row 13526.

I would also like to use this macro in other worksheets however the number of rows will definitely vary.

 

[Fluff]

That does not tell me what you are trying to do.
Please explain, in words, what you need.

 

[hstsunflower]

I would like my macro to end down in a column and place an X in every first row after the end. I would like this to be continued all the way down my spreadsheet.

I would like an X to be placed after every bold title all the way down to row 13526.

 

[Fluff]

Ok, thanks for that. How about

Sub hstsunflower()
   Range("A:A").SpecialCells(xlConstants).Offset(1).Value = "x"
End Sub

If you can have 2 or more consecutive cells in col A that have a value, let me know as this will not work in that scenario.

 

[hstsunflower]

Awesome. Thank you. Where would I place this? Before the code above or after?

 

[Fluff]

It replaces all of your code.

 

[hstsunflower]

I appreciate your help.

Unfortunately, it's not working. it's filling the entire row with X's. I would like just the first row following the cell that has data to have an X inserted.

 

[Fluff]

What do you mean it's filling all the rows with an x?
Are the cells in col A actually empty?