Modifica macro

Public Sub AggiornaFogli(aWB As Workbook, aRng As Range, i As Long)
    Dim destSH As Worksheet
    Dim srcRng As Range, destrng As Range
    Dim rngFormulas As Range
    Dim aCell As Range, rCell As Range
    Dim iCtr As Long, Classe As String

    For Each rCell In aRng.Cells
        If rCell.Value <> vbNullString Then
            Set srcRng = rCell.Offset(0, -2).Resize(1, 3)
            Set destSH = aWB.Sheets(CStr(rCell.Offset(0, 2).Value))
            Classe = rCell.Offset(, 3)
            With destSH
                .Select
                iCtr = 0
                Set rngFormulas = destSH.Columns("D").SpecialCells(xlCellTypeFormulas)
                For Each aCell In rngFormulas.Cells
                    iCtr = iCtr + 1
                    If iCtr = i Then
                        Set destrng = aCell.End(xlUp)(2).Offset(0, -2).Resize(1, 3)
                        Exit For
                    End If
                Next aCell
                With destrng
                    .Value = srcRng.Value
                    If Cells(.Row, 2) <> "" Then Cells(.Row, 1) = Classe
                    .Offset(1).EntireRow.Insert CopyOrigin:=xlFormatFromLeftOrAbove
                End With
            End With
        End If
        Classe = ""
    Next rCell
End Sub

Sub Elimina_righe()
Dim Ur As Long, X As Long, N As Long
Ur = Sheets("Mensile").Range("C" & Rows.Count).End(xlUp).Row
N = InputBox("Inserire il numero del mese da cancellare, ex gennaio = 1", , 0)
On Error Resume Next
For X = Ur To 6 Step -1
    If Month(Sheets("Mensile").Cells(X, 3).Value) = N Then
        'Sheets("Mensile").Range("A" & X & ":G" & X).Clear 'questo cancella
        'Sheets("Mensile").Rows(X & ":" & X).Delete 'questo elimina
    End If
Next X
MsgBox "Fatto"
End Sub

Sub Elimina_valori()
Dim Ur As Long, X As Long, N As Long
Ur = Sheets("Mensile").Range("C" & Rows.Count).End(xlUp).Row
N = InputBox("Inserire il numero del mese da cancellare, ex gennaio = 1", , 0)
On Error Resume Next
For X = Ur To 6 Step -1
    If Month(Sheets("Mensile").Cells(X, 3).Value) = N Then
        Sheets("Mensile").Range("A" & X & ":E" & X) = "" ' azzera i valori
        Sheets("Mensile").Range("G" & X) = "" ' azzera anche colonna G ma non la F
    End If
Next X
MsgBox "Fatto"
End Sub