Unohda toi äsköinen, siis siinä taulussa jossa kaaviot siirtyy niin tekee tämän makron

Sheets("STEP4").Select

Range("A9").Select

For d = Range("A39:A237").Cells.Count To 1 Step -1
If Len(Range("A39:A237").Cells(d)) = 0 Then Range("A39:A237").Cells(d).EntireRow.Delete
Next d
Koskas lähdössä?