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