添加新行时如何复制单元格值？

Question

我有以下代码根据单元格值插入新行。我如何修改它以将例如A列中的值复制到新插入的行？

Private Sub Worksheet_Change(ByVal Target As Range)
Set Rng = Range("B11:B50")
    If Target.Count = 1 Then
        If Target.Value = "Annual" Then
            If Not Intersect(Target, Rng) Is Nothing Then
                Application.EnableEvents = False
                Target(1).Offset(1, 0).EntireRow.Insert Shift:=xlDown
                Application.EnableEvents = True
            End If
        End If
    End If
End Sub

Answer 1

Cells(Target.Row + 1, 1).Value = Cells(Target.Row, 1).Value

同时复制A＆amp;乙

Cells(Target.Row + 1, 1).Value = Cells(Target.Row, 1).Value
Cells(Target.Row + 1, 2).Value = Cells(Target.Row, 2).Value