Copy cells onto another sheet

ShellLA 

This requires VBA , so it will only work in the desktop version of Excel for Windows and Mac.

Right-click the sheet tab of Sheet 1.

Select 'View Code' from the context menu.

Copy the code listed below into the worksheet module.

Switch back to Excel.

Save the workbook as a macro-enabled workbook (*.xlsm).

Make sure that you allow macros when you open the workbook.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    If Not Intersect(Range("A1"), Target) Is Nothing Then
        If Range("A1").Value <> "" Then
            With Worksheets("Sheet 2")    ' modify name as needed!
                On Error Resume Next
                Set rng = .Range("A:A").Find(What:="*", SearchOrder:=xlByRows, _
                    SearchDirection:=xlPrevious).Offset(1)
                On Error GoTo 0
                If rng Is Nothing Then
                    Set rng = .Range("A1")
                End If
                rng.Value = Range("A1").Value
            End With
        End If
    End If
End Sub