Ve se ajuda:

Sub arrumar_GT()
Application.ScreenUpdating = False

Dim UC  As Long 'UC = Última Coluna
Dim UL  As Long 'UL = Última Linha
Dim i   As Long
Dim j   As Long

With ActiveSheet.UsedRange
    UL = .Rows(.Rows.Count).Row
End With

For i = 1 To UL
    UC = Cells(i, Columns.Count).End(xlToLeft).Column
    For j = UC To 1 Step -1
        If IsEmpty(Cells(i, j)) Then
            Cells(i, j).Delete Shift:=xlToLeft
        End If
    Next j
Next i

ActiveSheet.UsedRange.Columns.AutoFit
Application.ScreenUpdating = True
End Sub

Gilmar,

Bom Dia!

Excelente código! Parabéns.