اضافه کردن ردیف

وقتی شما شماره ای در کالمن B بالای Total (در کالمن A ) قرار بدهید ردیف ایجاد و کرسر به کالمن A روی ردیف ایجادشده خواهد رفت.

(Private Sub Worksheet_Change(ByVal Target As Range

If Target.Column <> 2 Then Exit Sub

If Cells(Target.Row, 2).Offset(1, -1) = "Total" Then

Rows(Target.Row + 1).Insert

Cells(Target.Row + 1, 1).Select

End If

End Sub