U menja nizhe privedjennaja programka kopiruet zna4enija menjaju64ejsja ja4ejki A v stolbik B. No ona rabotaet toljko esli zna4enija menjae6 vru4nuju, a vot skopirovannij kurs valjuti s interneta(kotorij tozhe postojanno menjaeca) ne ho4et obrabativatj. Kto nibudj mozhet otvetitj po4emu ona kozlica.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(True, True) = "$A$1" Then
Range("B1").End(xlDown).Offset(1, 0) = Target.Value
End If
End Sub