copia celle se "data" >= "a"

=SE(MESE(Laves!E7= 9);Laves!A7)

Option Explicit

Sub Copia()
Application.ScreenUpdating = False
Dim NRc As Long, x As Long, NRX As Long
Dim y As Byte
    
    Sheets("Laves").Select
    With Worksheets("Previsioni Fatturato")
        NRc = .Cells.SpecialCells(xlCellTypeLastCell).Row
            If NRc < 2 Then NRc = 2
                Range(.Cells(2, 1), .Cells(NRc, 24)).ClearContents
        NRc = Cells(Rows.Count, 5).End(xlUp).End(xlUp).Row
            For x = 7 To NRc
                If Cells(x, 5) <> "" Then
                    Select Case Month(Cells(x, 5))
                        Case 1
                            NRX = .Range("A" & .Rows.Count).End(xlUp).Row + 1
                                y = 1                        
                        Case 9
                            NRX = .Range("Q" & .Rows.Count).End(xlUp).Row + 1
                                y = 17                                
                        Case 12
                            NRX = .Range("W" & .Rows.Count).End(xlUp).Row + 1
                                y = 23
                    End Select
                        .Cells(NRX, y) = Cells(x, 1).Value
                        .Cells(NRX, y + 1) = Cells(x, 2).Value
                End If
            Next x
     End With
Application.ScreenUpdating = True
End Sub