‘ Sub Aggiungi_righe_mesi()
‘ Aggiungi_righe_mesi Macro
‘ Macro per l’aggiunta di 11 righe dopo ogni nominativo, copia dei dati delle prime tre colonne nelle 11 righe sottostanti e copia di una serie di celle FISSE con i nomi dei 12 mesi e le formule dal foglio MODELLO nelle colonne adiacenti
‘
‘ Scelta rapida da tastiera: CTRL+a
‘
Rows(“4:14”).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range(“A3:C3”).Select
Selection.Copy
Range(“A4:A14”).Select
ActiveSheet.Paste
Sheets(“MODELLO”).Select
Range(“B3:Q14”).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(“NOMINATIVI”).Select
Range(“D3”).Select
ActiveSheet.Paste
End Sub

Public Sub albatros54()
    Dim sh4 As Worksheet
    Dim sh5 As Worksheet
    Dim sh1 As Worksheet
    Dim lUltRiga As Long
    Dim count As Long
    Dim lng As Long
    Dim ln As Long
    Dim nm As String
    Dim s1 As String
    Dim s2 As String

    With ThisWorkbook
        Set sh4 = .Worksheets("Nominativi")
        Set sh5 = .Worksheets("Foglio1")
        Set sh1 = .Worksheets("MODELLO")
    End With
    With sh4
        count = 1
        'lUltRiga = .Range("A" & .Rows.count).End(xlUp).Row
        For lng = 1 To 4    'lUltRiga << Adattare al tuo range
            s1 = .Range("a" & lng)
            nm = .Range("a" & lng).Offset(0, 1)
            s2 = .Range("a" & lng).Offset(0, 2)



            For ln = 3 To 14
                sh5.Cells(count, 1) = sh4.Cells(lng, 1)
                sh5.Range("b" & count) = sh4.Range("b" & lng)
                sh5.Range("c" & count) = sh4.Range("c" & lng)
                sh1.Cells(ln, 1).Resize(, 16).Copy sh5.Range("d" & count)
                count = count + 1
            Next
        Next



    End With


End Sub