I have a spreadsheet that I am updating information in monthly. Since I keep the monthly history I always copy the most recent row of data and I have to do this for about 50 rows each month. Once that is done I need to copy and paste the formulas in a few different cells (which I keep in a hidden row) for each new row and then I copy, paste-special-values for each of these formulas. As you can guess, this is an extremely tedious task and I know it can be made more efficient. I have created a macro that will copy, paste and highlight, each new row for me (one at a time) but I am wondering if I can select multiple rows and have it perform the copy & paste function for each selected row. Here is my current macro:
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 13434879
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Similarly, is there a way for me to select each cell that I have copied my formula in to and use a macro that will perform the Copy & Paste-special-values functions, to all selected cells instead of having to perform the task one cell at a time?
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 13434879
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Similarly, is there a way for me to select each cell that I have copied my formula in to and use a macro that will perform the Copy & Paste-special-values functions, to all selected cells instead of having to perform the task one cell at a time?