Sub Macro2() ' ' Macro2 Macro ' ' Range("A10").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("A10").Select End Sub
Private Sub CommandButton1_Click() Rows("10:10").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("A10").Select End Sub