Yes, relatively easy in VBA. For example, if you put this in Sheet1's code
module

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
If UCase(Target.Value) = "A" Then
Dim where As String: where = Target.AddressLocal(False, False)
Worksheets("sheet2").Range(where).Value = "A"
Worksheets("sheet3").Range(where).Value = "A"
End If
End If
End Sub

Then it will act on A's in column B and put them in the same place in sheets
2 and 3.