Macro to delete left

[bluepenink]

I have over 5000 rows of data that contain blanks

I would like where there is a blank for the data to Delete > shift left

i.e.
A17:D17 are blanks F17:H17 contain data

so if A17:D17 are blanks, then move data from F17:H17 to A17:D17 (delete left)

i would like so it searchs for any blanks in column A:D and replaces it with data in column F:H

can someone pls help with a macro? thxing u in advance

 

[HalfAce]

Hi, I'm not sure if this is what you're looking for or not.
It deletes all blanks in columns A:D, shifting (just) those cells to the left.

Sub DeleteBlanksShiftingToLeft()
Columns("A:D").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
End Sub

Hope it helps.