Hello to everybody,
I need help in writing this code I need for my final Thesis at University.
I need to extract cells from incremental ranges, (B3:C263), (D3:E263), ... , (ID3:IE263) and paste it to another sheet.
The code I wrote (recorded) for the first extraction is:
Range("D2").Select
Windows("DATABASE.xlsx").Activate
Range("B3").Select
Range(Selection, Selection.End(xlDown)).Select
Range("B3:C263").Select
Selection.Copy
Windows("Calcolo implied vol OK.xlsm").Activate
Range("G2").Select
ActiveSheet.Paste
Windows("DATABASE.xlsx").Activate
ActiveWindow.SmallScroll Down:=-264
Range("B1:C1").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Calcolo implied vol OK.xlsm").Activate
Range("D2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D2").Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("D2:D259")
Range("D2:D259").Select
ActiveWindow.SmallScroll Down:=-192
Thanks in advance for your help, I appreciate.
Francesco
