Zkus tohle:

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim Radek As Long
 Dim List As String
 
 List = "List2"
 
  If Target.Address = "$A$1" Then
    If Len(Target) > 0 Then
        If Worksheets(List).Cells(1, 1) = Empty Then
            Worksheets(List).Cells(1, 1) = Target
         Else
            Radek = Worksheets(List).Cells(65000, 1).End(xlUp).Row + 1
            Worksheets(List).Cells(Radek, 1) = Target
        End If
    End If
  End If
End Sub