
Sub Inserisci()
Dim sht As Worksheets, MiaRiga As Integer
With sht
MiaRiga = ActiveCell.Row
Rows(MiaRiga).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Cells(MiaRiga, 3).Offset(-1, 0).Select
Selection.Copy
Cells(MiaRiga, 3).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
End With
End Sub
|
