0

I have a code, which basically makes one formula for B10, then it copies it all the way down and insert it back as values to remove the formula and make it more 'clean'.

My issue is that I have a defined 'lastrow' which in this case is 5000. Can I somehow introduce a lastrow which enables it code to copy it down until there is no data in the row. (if a specific column is to be used, then Column C can be used for this.

can this be solved? 

Sheets("Table").Range("B10").Formula = "=LEFT(F10,4)&E10&D10&C10" Sheets("Table").Range("B10").Copy Sheets("Table").Range("B11:B5000").PasteSpecial xlPasteAll Sheets("Table").Range("B10:B5000").Copy Sheets("Table").Range("B10:B5000").PasteSpecial xlPasteValues
Improve this question
2
  • Yes first find the lastrow with data in that column like lastrow = sheet1.Range("A" & rows.count).end(xlup).row will return the last row with the data then use range.Autofill method instead of copy and pasting and use With Keyword to avoid referencing the same sheet again and again. Commented Apr 16, 2017 at 16:35
  • HI new guy, I understand your logic. But how will this look as a VBA code? Can it for instance be built into the code above? (Sorry this is new to me, and im learning new things each day :) Commented Apr 16, 2017 at 17:36
Load 6 more related questions Show fewer related questions

0

Reset to default

Start asking to get answers

Find the answer to your question by asking.

Ask question

Explore related questions

See similar questions with these tags.