Kann mir jemand ein Makro für dieses Beispiel schreiben, das ich ins VBA einkopieren könnte?

Leider bin ich ein absoluter VBA-Anfänger und ohne deine Hilfe total aufgeschmissen. Vielen Dank im voraus.