Thread: Question on Macro

Hi,

I have this macro tat copies the contents of a row in the rows below till it gets to the next non-empty cell and then starts copying the next cell and so on.

Sub Below42()

Dim rng As Range
 
Set rng = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
 
rng.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"

rng.Value = rng.Value

End Sub

The issue is that this doesn't work beyond a certain number of rows. For example, it will work till about 70K rows or so but will not work for 200K rows.

Can anyone please help?

Thanks!

Hi and welcome to the board. unfortunately,



Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution. Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.
To change a Title on your post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

PLEASE PM WHEN YOU HAVE DONE THIS AND I WILL DELETE THIS POST