if I type data into one of them (either one) that same data is "replicated" in the other.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Range("b1") = Target.Value
If Target.Address = "$B$1" Then Range("a1") = Target.Value
End Sub