Aggiungre una nuova riga

[LoryOne]

Non ti accetta Range("B86:O86").Select ?

[dariobarbera]

no non me lo accetta vuoi che ti mando il file via mail?

[LoryOne]

No, grazie, non me ne faccio nulla.
Devi ragionare sulle celle relative, quindi mantieni pure Cells.

Se analizzi tale codice, dovresti comprendere che:
Range(Cells(Selection.Row, 1), Cells(Selection.Row, 10)).Copy
significa che si deve prima eseguire cio che è tra parentesi, come in algebra.

Selection.Row equivale alla riga che appartiene alla cella selezionata CellSel.
Cells(Riga,Colonna) è come dire Cells(CellSel,colonna 1)
Cells(Selection.Row, 10)) è come dire Cells(CellSel, colonna 1 + 10 colonne a sinistra)

Se si dice A10, è come dire riga 10 colonna 1
Se si dice A10:B10 è come dire da riga 10 colonna 1 a riga 10 colonna 2

[dariobarbera]

Non sono riuscito ad indicare io che celle copiare ma mi copia líntera riga e va bene lo stesso!!
grazie a tutti
posto il codice creato se serve a qualcun altro!!

Sub aggiungi_copiaformato() 'aggiungi riga / in mezzo con messaggio
Dim n As Long
Dim x As Long
Dim Avviso As String
n = ActiveCell.Row
If n < 2 Then
'MsgBox ("Qui non puoi aggiungere righe"), vbQuestion
MsgBox ("In questo punto non puoi aggiungere righe"), vbCritical
Exit Sub
Else
'ActiveSheet.Unprotect "123456"
ActiveCell.EntireRow.Insert
x = ActiveCell.Row - 1
Cells(x, 1).EntireRow.Copy
Cells(ActiveCell.Row, 1).PasteSpecial Paste:=xlFormats
Application.CutCopyMode = False
'ActiveSheet.Protect "123456"
End If
End Sub

[LoryOne]

Mah...
Magari funzionava anche questo:

Sub Copia_Incolla(rr1 As String, rr2 As String)
Dim r1 As Range

Set r1 = Range(rr1)
With r1
    .Select
    .Copy
End With
Set r1 = Range(rr2)
r1.PasteSpecial xlPasteAll
Set r1 = Nothing

Copia_Incolla "B86:O86", "B87"

[dariobarbera]

Grazie provero´ ad usare anche il tuo!!

[RunDLL]

Basta dare indicazioni. Si potrebbe cominciare ad esempio dicendo cosa si sta usando, nel caso Visual Basic for Application. Poi indicando i passi compiuti come i controlli inseriti, fino ad arrivare al codice indicando a quale controllo associato ed evento. Non sempre è possibile evincere tutto questo solo dal codice.