Per correttezza posto la procedura completamente rivista, grazie all'aiuto di un esperto trovato in atri gruppi...
Credo che sia più che corretto divulgare ciò che si fa, in special modo se prima si è chiesto

Ecco la procedura :



codice:
Sub Macro1()
'
' Macro1 Macro
'

'
    w = Cells(Selection.Row, Selection.Column).Column
    If w <> 1 Then Exit Sub '
    If Cells(Selection.Row, 1).Value = Cells(Selection.Row + 1, 1).Value Then Exit Sub '
     cont = 1
     For x = 14 To Cells(Selection.Row, 1).Row
     valore_celle = Cells(x, 1).Value
     If valore_celle = Cells(Selection.Row, 1).Value Then
     cont = cont + 1
     End If
    Next
     If cont > 3 Then Exit Sub '
     Rows(Selection.Row + 1).Insert Shift:=xlDown
        Cells(Selection.Row + 1, 1) = Selection
        Cells(Selection.Row + 1, 2) = Selection.Offset(, 1)
End Sub