Move data row by row to left hand side of an array across blank cells

I have an array into which I paste values (golf handicaps) from another part of the sheet. The columns respresent the competition and each row a member of the group. As everyone in our group does not play each competition, there are blank cells. I want copy the array to another table and go through the membership,the array, row by row and move the handicap values to the left of the array so there are no blank cells in each row. Any suggestions would be appreciated. Thank you. Although I am eighty two years old, I have been given the task of writing a program and I have EXCEL to do it. My previous programming was done using fortran and VBA is somewhat foreign to me.

The data I have could be in the follwoing format


26 15 29
31 24 22

I want to move the values to the left for each row

26 15 29
31 24 22

Thank you
Fred99

Hi, Fred99,

and what about the data which already has been inserted into the survey?

Please try the code on a copy of your workbook.

The following macro has to be executed on the survey sheet (it will always run on the sheet which is active in the Excel application). Press ALT+F11 to enter the VBE, search for the workbook name in the project explorer, expand the project if only a + is shown, insert a standard module via menu, insert the following code there, press F5 to run the macro:

Sub Fred99()
'http://www.excelforum.com/excel-programming-vba-macros/858367-move-data-row-by-row-to-left-hand-side-of-an-array-across-blank-cells.html
'macro works on the activesheet and will shift data to the left

'avoid any information about errors
On Error Resume Next
'delete the empty cells in the range, shift to left
ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Delete shift:=xlShiftToLeft
'check, if an error occurred
If Err <> 0 Then
  MsgBox "no blanks in active sheet"
End If
'go back to normal error handling
On Error GoTo 0
End Sub

If you have any questions regarding the code or problems with the deletion of cells (unwanted results) please come back and tell us about these. This might be the start of one way to solve the problem.

If you cannot run macro actions in your workbook go to the symbol in the upper left, choose Excel-Options, Safety, check the button for macro security.

Ciao,
Holger

Thank you Holger. I will try it tomorrow as its late now, just gone midnight.
Will let you know if I have any problems.
Thanks agaqin
Fred99

I have tried the code you forwarded to me. It works like a charm. It is so easy if you learn the code.
Thank you again for your trouble

@ Fred99

Welcome to the forum.

Based on your last post it seems that you are satisfied with the solution(s) you've received but you haven't marked your thread as SOLVED. I'll do that for you now but please keep in mind for your future threads that Rule #9 requires you to do that yourself. If your problem has not been solved you can use Thread Tools (located above your first post) and choose "Mark this thread as unsolved".
Thanks.

Also, as a new member of the forum, you may not be aware that you can thank those who have helped you by clicking the small star icon located in the lower left corner of the post in which the help was given. By doing so you can add to the reputation(s) of those who helped.