Hi all
I have code belove in sheets(A) and work well
Private Sub Worksheet_Change(ByVal Target As Range)Dim rngB As Range, rngC As Range, cel As Range
Dim wksB As Worksheet, wksC As Worksheet, wksD As Worksheet
Dim lngRowB As Long, lngRowC As Long, lngRowD As Long, lngRowsCopied As Long...