Eliminare celle vuote in una tabella excel

Question

Avrei necessità di eliminare celle vuote in una tabella Excel in maniera tale da accodare i dati esistenti

ho usato questa routine trovata in rete:

For k = 1 To 3

Dim cl As Object

For Each cl In Range("DF2956:DL3016")

If cl.Value = "" Then

cl.Delete

End If

Next

Next

il ciclo for  .. next in testa l'ho dovuto aggiungere perché non completava il ciclo ma impiega un tempo, secondo me, eccessivo senza contare che devo posizionare, al di sotto di questa tabella, celle non vuote per evitare che la suddetta routine mi sposti i dati nelle colonne adiacenti che poi devo svuotare.

Il range è così alto perché questo è un elenco che utilizzerò in convalida dati

Questa la tabella: a sinistra ciò che ho a destra quello che vorrei ottenere

Col 1	Col 2	Col 3	Col 4	Col 5	Col 6	Col 7	Prg	Col 1	Col 2	Col 3	Col 4	Col 5	Col 6	Col 7
		c1	d1				1	A1	b1	c1	d1	e1	f1	g1
					f1		2	A2	b2	c2	d2	e2	f2	g2
A1	b1			e1			3			c3	d3	e3	f3	g3
					f2	g1	4				d4		f4	g4
				e2			5							g5
A2							6							g6
						g2	7							g7
	b2	c2					8							g8
							9							g9
							10							g10
						g3	11							g11
							12							g12
						g4	13							g13
						g5	14							g14
			d2				15							g15
		c3				g6	16
						g7	17
			d3			g8	18
							19
			d4		f3		20
							21
							22
							23
				e3			24
						g9	25
						g10	26
							27
						g11	28
							29
							30
							31
					f4		32
							33
							34
						g12	35
							36
							37
							38
							39
						g13	40
							41
							42
							43
							44
						g14	45
							46
							47
							48
						g15	49
							50
							51
							52
							53
							54
							55
							56
							57
							58
							59
							60

Answer 1

rispondendo a qualche post precedente sembra che i dati vengano anche ordinati ma poco importava...