VBA To Transpose Values In Rows To Single Column

I have attached a workbook with a sheet named "Convert to Columns 1" where i need an existing VBA macro fixed or a new one created that is currently supposed to take all of the values in row3 (starting with B3) and transpose them to column A, (starting in A3) and as a result, displaying the values "vertically" down the column instead of horizontal across the rows. Then row 4 values, same thing, transpose from row4 to column A and so on.... down the entire range of rows. The vba should also eliminate blanks after it finishes the transpose function... leaving column A populated with all of the transposed values with no blank cells in between any of the values, all the way down column A. Any help would be greatly appreciated. Note, this is a small sample of the main sheet as file size was to large to upload. there will be upwards of 4000 possible rows of values to transpose, the amount of cells with values across columns however will not increase, only certain cells within the rows will change from blank to having values and vice versa... Hopefully this makes sense enough to begin a productive dialog....

Using Power Query. Unpivot the columns and delete the blanks. The Mcode is fairly long due to the number of columns you have. Attached is the file.

As indicated in the post #2, this is not VBA, but Power Query. It does not operate from the button you created. Suggest you read the links in my signature to learn about Power Query which is a powerful addition to Excel going back to version 2010. It is designed to manipulate data to a form that is acceptable for analysis.