[VBA] descrizione macro

[newbobotime]

Ciao Raga,
Ho bisogno del vostro aiuto !

Premetto che stò approcciando VB solo adesso, in pratica non capisco nulla,
e proprio per questo vorrei capire cosa dovrebbe generare questo codice
inserito come macro all'interno di un file excel.

In realtà quello che dovrebbe fare penso di averlo capito, ovvero; andare a copiare all'interno di un altro file di excel i dati presenti nel file.xls dove risiedono le macro
(rilevati da query access ) ma all'interno di celle preformattate dando un aspetto più organizzato.

Qualcuno sarebbe cosi cortese da spiegarmi anche a grandi linee i comandi
VB di questo codice ?

PS - Ha importanza se i nomi dei moduli vb non sono uguali alle Routine ? ovvero la Macro1() è inserita nel modulo 2, la Macro2() è inserita nel modulo 1 etc.

Sub Macro1()
    ChDir "C:\DEPOT\"
    Workbooks.Open Filename:="C:\DEPOT\DATI_DEPOT.xls"
    Windows("DATI_DEPOT_GG.xls").Activate
    Windows("DATI_DEPOT_HUB.xls").Activate
    ActiveWindow.SmallScroll Down:=-9
    ActiveWindow.Close
End Sub



Sub Macro2()
    Workbooks.Open Filename:="C:\DEPOT\DATI_DEPOT.xls"
    Range("A1").Select
    ActiveWorkbook.Close
    Range("D17").Select
End Sub



Sub Macro3()
    Workbooks.Open Filename:="C:\DEPOT\DATI_DEPOT.xls"
    Range("A1").Select
    ActiveWorkbook.Close
    
      Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    Sheets("AN14").Select    
	Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    Sheets("BA14").Select    
	Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    Sheets("BO14").Select
    ActiveWindow.SmallScroll Down:=-12    
	Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    Sheets("FI14").Select
    ActiveWindow.SmallScroll Down:=-9    
	Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    Sheets("FNR14").Select
    ActiveWindow.SmallScroll Down:=-12    
	Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    Sheets("NT3").Select    
	Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    Sheets("PC14").Select    
	Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("PD2").Select
    ActiveWindow.SmallScroll Down:=-9    
	Cells.Select
    Application.CutCopyMode = False
    Selection.Copy    
	Cells.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    Sheets("Totale").Select
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:="C:\DEPOT\DATI_DEPOT.xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub