以下是一个用于Excel的VBA宏代码示例，用于动态地从数据表中移除和重新组织剩余的列：

Sub RemoveAndReorganizeColumns()
    Dim ws As Worksheet
    Dim dataRange As Range
    Dim lastColumn As Long
    Dim columnToRemove As Range
    Dim newColumnOrder As Range
    Dim i As Long

    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Sheets("Sheet1")

    ' 设置要操作的数据范围（假设数据在第1行到第10行，第1列到第20列）
    Set dataRange = ws.Range("A1:T10")

    ' 设置要移除的列（假设要移除第5列和第10列）
    Set columnToRemove = dataRange.Columns(5) ' 第5列
    Set columnToRemove = Union(columnToRemove, dataRange.Columns(10)) ' 第10列

    ' 设置新的列顺序（假设要将第3列移动到第8列的位置）
    Set newColumnOrder = dataRange.Columns(3) ' 第3列
    Set newColumnOrder = Union(newColumnOrder, dataRange.Columns(1).Resize(, 2)) ' 第1列和第2列
    Set newColumnOrder = Union(newColumnOrder, dataRange.Columns(4).Resize(, 6)) ' 第4列到第9列
    Set newColumnOrder = Union(newColumnOrder, dataRange.Columns(11).Resize(, 10)) ' 第11列到第20列

    ' 移除列
    columnToRemove.Delete Shift:=xlToLeft

    ' 重新组织列
    newColumnOrder.Cut
    dataRange.Columns(1).Insert Shift:=xlToRight

    ' 清除剪切板
    Application.CutCopyMode = False
End Sub

上述代码中，我们首先设置要操作的工作表和数据范围。然后，我们使用Set关键字将要移除的列和新的列顺序存储在变量columnToRemove和newColumnOrder中。

接下来，我们使用Delete方法将要移除的列从数据范围中删除，并使用Cut和Insert方法将新的列顺序插入到数据范围的第一列。

最后，我们使用Application.CutCopyMode = False清除剪切板。

请根据实际需求修改代码中的工作表名称、数据范围和列顺序。