Bu dosyayı deneyin.
Fiyatın toplamı ve 100 kg yazan yer ve Fiyat yazan yerin yazısı kalın oldu.

Anlamaya çalıştığınız için yazayım modül içindeki örnek olarak paramatre içinde  As Worksheet olanın solundaki aktif yayfa oluyor diğer sub larda başka yazıyor.

Aslında modül yerine Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) burayada yazılabilinirdi.

Dediğimin içine alırsanızda as olandan öncekileri Sh olarak değiştirmeniz gerekiyor ama denemedim ve gerek yok.

Sub Aktar(ByVal syf As Worksheet)