Put this code the the sheet module:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Columns.Count > 1 Then Exit Sub
If Target.Row < 2 Then Exit Sub
If Target.Column <> 1 Then Exit Sub
Dim x As Long
x = Target.Row
Dim Cols As Variant
Dim C As Variant
Cols = Array(2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12)
For Each C In Cols
Cells(x - 1, C).Copy Cells(x, C)
Next
End Sub
|