This is what I have so far. But it copies the cell formulas to the second sheet not the data displayed by the formulas.![]()
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$2" Then Sheets(1).Range("A3:I3").Copy Sheets(2).Range("B" & Sheets(2).Rows.Count).End(xlUp).Offset(1, 0) End If End Sub
Bookmarks