Kan det gøres lettere

Jeg har et regneark, hvor der fra kolonne l (12) står en række ens tal i den og de følgende kolonner.
eks: 271 271 271 271 271 271 271
Jeg blanker nu en eller flere af cellerne så der står:
271 271    271 271    271
jeg har forsøgt at lave en makro, som kan rykke tallene sammen, så der kommer til at stå
271 271 271 271 271
jeg har flere rækker i samme regneark.
jeg har lavet denne makro:

sub sorter
For x = 1 To 20
For y = 12 To 50

    If Worksheets("Klodser").Cells(x, y) = "" Then
        Worksheets("Klodser").Cells(x, y) = Worksheets("Klodser").Cells(x, y + 1)
        Worksheets("Klodser").Cells(x, y + 1) = ""
    End If
Next y
Next x
End Sub

hvis jeg har en række der indeholder:
tal tal blank blank blank tal tal
så skal jeg "bare" køre min makro 3 gange, så er det rykket sammen
Men kan det gøres bedre/ lettere???