Private Sub Worksheet_Change(ByVal Target As Range)
If Target.range = "A:A" Then
    Call copy_paste_as_value
End If