vba functions

vbafunc.bas

Sub squeezeRow(column, startRow, endRow As Integer)
    Dim count As Integer
    count = 0
    i = startRow
    Do While i <= endRow
        If Cells(i, column).Value = "" Then
            For j = i + 1 To endRow
                Cells(j - 1, column).Value = Cells(j, column).Value
            Next
            Cells(endRow, column) = ""
            endRow = endRow - 1
        Else
            i = i + 1
           
        End If
    Loop
   
End Sub
Sub run()
    Call squeezeRow(7, 21, 26)
End Sub