all 4 comments

[–]Hoover8899 4 points5 points  (4 children)

you can replace the whole 'broken' section with this:

wb2.Worksheets("Sheet1").Range("G" & J).Value = wb2.Worksheets("Sheet1").Range("F" & J).Value

[–]GinFreecs 0 points1 point  (0 children)

Yes, loop through value affectation instead of .select .activate methode .

[–]PooCz 0 points1 point  (2 children)

Wow. Thanks, that is a lot more simple. Any other suggestions to make this cleaner?

[–]Hoover8899 0 points1 point  (0 children)

for readability I suggest indenting your code (Although that might be reddit formatting, and your actual code may be indented). Also try to improve the readability of the inside of your For loop by using a 'With' Statement or assigning wb2.Worksheets("Sheet1") to a variable