I am coding a tetris project using VBA and have figure out how to delete a row but I now do not know how to make the tetris blocks that were above that deleted row of blocks move down one cell block on the screen. The code for it is below:
Sub SumBlocks(T1, T2, T3, T4, T5, T6, Total) 'Subprogram that adds the cell values of the blue blocks in a row.
Total = T1 + T2 + T3 + T4 + T5 + T6
If Total = 6 Then 'If/Then statement that makes a completely filled blue cell block row the color of the game screen.
Cells(i, j).Interior.Color = vbCyan
Cells(i, j).Font.Color = vbCyan
End If
End Sub
Solved by B. S. in 22 mins