Sub FormulaFill() Application.ScreenUpdating = False LastRow = range("A" & Rows.Count).End(xlUp).Row range("Q2").Copy Destination:=range("Q3:Q" & LastRow) range("A1").Select Application.ScreenUpdating = True End Sub
|Multi-user Excel not reflecting who actually has the file opened||10||30|
|Hard coding time and date into Excel||2||30|
|macro for filtering the criteria and sending mail to all the data||8||27|
|How to move the last 4 digits of a number to a new column||8||42|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
16 Experts available now in Live!