eltorpe, 21/08/2019 18.18:... mi occorre aggiornare le FORMULE delle prime 4 colonne. .... Suggerimenti?
Sub CopiaFormule() Range("A2:D2").Copy Range("A3:A15000").PasteSpecial Paste:=xlPasteFormulas Application.CutCopyMode = False End Sub