Sub nestosi()

Range("D1") = Range("A1") & Range("B1") & Range("C1")

End Sub
това трябва да ти свърши работа по втория въпрос, ако искаш това да става автоматично трябва да го пригодиш чрез проверка на смяна на стойността на А1,В1 и С1
------
Sub Button1_Click()

Range("A1").Select
Selection.Copy
Sheets("Sheet2").Select
ActiveSheet.Paste

End Sub
това върви без проблем