Hello ,
Here is the macro that has been added to the attached workbook. If an "X" (case is ignored) is entered into D9 then the data is transferred to the next available line on "Sheet2".
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Data As Variant
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("D9")) Is Nothing Then
If UCase(Range("D9")) <> "X" Then Exit Sub
Data = Range("D2:D8").Value
Data = WorksheetFunction.Transpose(Data)
With Worksheets("Sheet2")
.Cells(.UsedRange.Rows.Count + 2 - 1, "A").Resize(1, 7).Value = Data
End With
End If
End Sub
Bookmarks