Excel 用于删除多列空白单元格及其旁边单元格的公式

我想知道是否有人可以帮助我解决附加示例数据集的问题。我还有很多，所以我正在努力找到一种有效的方法来做到这一点：

在随附的excel数据表中，有两列并排排列的数据集，由行TIME和GLU标记。我使用条件格式化在每个Glu列中突出显示红色单元格中的空白单元格。我想做什么而不必亲自经历。。。是指删除这些空白单元格，即删除并向上移动整列，同时删除并向上移动单个“时间”单元格，使其紧靠每个空白单元格的左侧，如A列和B列中绿色高亮显示的时间单元格所示

有人知道这是如何通过代码实现的吗？？会非常有帮助的

提前谢谢！ 帕特里克

Sub RemoveBlank()
Dim sht As Worksheet
Dim LastRow As Long
Dim LastColumn As Long
Dim Column As Long

Application.ScreenUpdating = False
Set sht = ThisWorkbook.Worksheets("Sheet1")

LastColumn = sht.Cells(1, sht.Columns.Count).End(xlToLeft).Column
Column = 2

Do While Column <= LastColumn
    LastRow = sht.Range(Cells("1", Column - 1), Cells("1", Column - 1)).CurrentRegion.Rows.Count
    Row = LastRow
    Do While Row > 1
        If sht.Range(Cells(Row, Column), Cells(Row, Column)).Value = "" Then
            'Delets the two column row with a blank GLU and moves the rest of the data up.
            sht.Range(Cells(Row, Column - 1), Cells(Row, Column)).Select
            Selection.delete Shift:=xlUp
        Else
            'Do nothing
        End If
        Row = Row - 1
    Loop
    Column = Column + 2
Loop

Application.ScreenUpdating = True
End Sub