hola expertos me pueden por favor colaborar con los siguientes dos codigos
tengo un rango de datos numericos que van desde "a1:sx42" pero hay varias celdas vacias y necesito agrupar todos esos datos en una columna en mi caso "ut"
y el segundo codigo seria que elimine las celdas vacias de la columna ut
le agradezco que los codigos sean lo mas rapido posible al ejecutarse

Hola jhon fredy, como no compartes archivo pues simplemente adapta el código a tus necesidades. Un saludo

gracias

aunque tengo demasiados datos para agrupar , habra algo mas rapido 

 

Prueba con esto:

Sub TransponerA1SX42()
Application.ScreenUpdating = False
y = Columns("UT").Column
For columna = 1 To Columns("SX").Column
 x = (columna - 1) * 42 + 1
 Range(Cells(x, y), Cells(x + 41, y)).Value = _
         Range(Cells(1, columna), Cells(42, columna)).Value
Next
Columns(y).Sort Key1:=Columns(y)
End Sub

 

gracias