Sub Testing()
Dim LstRw As Long, x As Long
Dim LstCol As Integer, y As Integer
LstRw = Cells(Rows.Count, "A").End(xlUp).Row 'This uses column A to determine the last used row
LstCol = Cells(1, Columns.Count).End(xlToLeft).Column 'This uses row 1 to determine the last used column
'Adjust the column and row used as necessary
For x = LstRw To 1 Step -1
For y = LstCol To 1 Step -1
If Len(Cells(x, y).Value) = 0 Then Cells(x, y).Delete xlShiftToLeft
Next
Next
End Sub