Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address(0, 0)
Case "B2"
Dim arr As Variant
arr = Range("I2:L2")
Dim xx As Long
xx = Cells(3, Columns.Count).End(xlToLeft).Column + 1
xx = Application.Max(xx, [N1].Column)
Cells(3, xx).Resize(UBound(arr, 2), 1) = Application.Transpose(arr)
End Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address(0, 0)
Case "B2"
Dim arr As Variant
arr = Range("I2:L2")
Dim xx As Long
xx = Cells(3, Columns.Count).End(xlToLeft).Column + 1
xx = Application.Max(xx, [N1].Column)
Application.EnableEvents = False
Cells(2, xx).Value = Range("A2").Value
Cells(3, xx).Resize(UBound(arr, 2), 1) = Application.Transpose(arr)
Application.EnableEvents = True
End Select
End Sub