Copia dati SE

Option Explicit

Sub Verifica()
Dim NRc As Long

    With Worksheets("PREVISIONI")
        NRc = .Range("A" & .Rows.Count).End(xlUp).Row + 1
         If Range("N23").Value >= 60 Or Range("N25").Value >= 45 Or Range("N27").Value >= 57 _
         Or Range("Q23").Value >= 80 Or Range("Q25").Value >= 80 Or Range("Q27").Value >= 80 Then
            .Cells(NRc, 1).Value = Cells(3, 1).Value
            .Cells(NRc, 2).Value = Cells(3, 3).Value
            .Cells(NRc, 15).Value = Cells(31, 17).Value
            .Cells(NRc, 16).Value = Cells(29, 17).Value
            If Cells(23, 14).Value >= 60 Then .Cells(NRc, 3).Value = Cells(23, 14).Value
            If Cells(25, 14).Value >= 45 Then .Cells(NRc, 4).Value = Cells(25, 14).Value
            If Cells(27, 14).Value >= 57 Then .Cells(NRc, 5).Value = Cells(27, 14).Value
            If Cells(23, 17).Value >= 80 Then .Cells(NRc, 6).Value = Cells(23, 17).Value
            If Cells(25, 17).Value >= 80 Then .Cells(NRc, 7).Value = Cells(25, 17).Value
            If Cells(27, 17).Value >= 80 Then .Cells(NRc, 8).Value = Cells(27, 17).Value
            If Cells(29, 12).Value >= 85.72 Then .Cells(NRc, 9).Value = Cells(29, 12).Value
            If Cells(30, 12).Value >= 85.72 Then .Cells(NRc, 10).Value = Cells(30, 12).Value
            If Cells(32, 12).Value >= 69 Then .Cells(NRc, 11).Value = Cells(32, 12).Value
            If Cells(33, 12).Value >= 69 Then .Cells(NRc, 12).Value = Cells(33, 12).Value
            If Cells(35, 12).Value >= 69 Then .Cells(NRc, 13).Value = Cells(35, 12).Value
            If Cells(36, 12).Value >= 88 Then .Cells(NRc, 14).Value = Cells(36, 12).Value
         End If
    End With
End Sub